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This preface will serve both editions of this 
book. There is a student edition which contains 
problems to be solved, references, and an 
appendix of useful information. 

The student edition is designed to encourage 
research and preliminary investigation on the 
part of the student. The problems are ordered by 
subject area, i.e., arithmetic, algebra, geometry, 
etc. Certain problems can be expanded, or 
shortened. References are given in order to 
encourage preliminary research. 

The Teacher's Edition contains solved prob- 
lems and has the following features: 

( 1 ) The student problem page is reproduced; 

(2) Actual problem solutions, as printed by 
the computer, are given; 

(3) A program which produces this solution is 
shown; 

(4) The analysis, for most problems, is 

intended to make clear to the teacher 

exactly what went into the program, to 

explain any algorithm used, to give 

further references, and occasionally 

suggest further reading or research. 

In some sections, more than one program has 
been listed. This approach is taken either to show 
an alternative way of solving the problem or as 
part of stepwise, multiple-program progression 
toward a solution. 

The reader will find that some problems have 
not been either analyzed or solved. Special 
interest problems or problems which have never 
been solved, are posed to give the student an 
opportunity to deal with some of the unsolved 
problems in mathematics. Some research and an 
attempt to solve these will sharpen the student's 
insight and awareness. 



The book can be used with almost any 
computer-oriented course of the high-school or 
college level. Any programming language can be 
used to solve the problems. However, all 
solutions are given here in BASIC. BASIC is the 
most popular and easiest to learn of the 
programming languages used in education. 

Many problem solutions were written in 
EDUCOMP BASIC and run on an 8K (word) 
Digital Equipment Corporation PDP8 computer. 
Other problem solutions were implemented and 
run on the UNIVAC 1108 at the Computing 
Center of the State University of New York at 
Albany (SUNYA). The software was a Real-Time 
BASIC (RTB) package authored by personnel at 
the center 

Some of the programming statements used 
are not available on all BASIC software systems. 
By the same token the BASIC being used by the 
reader may have features which were not 
available to the author. An attempt has been 
made to point out these differences within the 
analysis following the program in question. 

This project was made possible through a 
grant from the SUNYA Computing Center. I 
wish to extend my appreciation to the staff of 
John Tuecke, Assistant Director for Academic 
Services, at SUNYA for their assistance. My 
thanks also to my student assistant Dave 
VanSchaick, who did much of the drawing and 
programming. Mr. Brad Longdo of the Media 
Center at Waterford-Halfmoon High School 
helped me in planning and designing many 
aspects of the volume. 



Stephen John Rogowski 
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Faulty Speedometer Spotter 



Blind reliance on automobile speedometers can 
sometimes cost one a ticket. They are strikingly 
unreliable, in some cases being off by as much a 15 
m.p.h. The trooper, when confronted with inaccuracy 
as an excuse for speeding, says Tell it to the judge. The 
judge says Pay the fine. 

An ideal way of checking your car's speedometer would 
be to time the car over a measured mile (such as those 
between distance markers on superhighways). If the 
speed is held constant, a simple table should allow one 
to convert the elapsed time for the mile to a speed in 
miles per hour. 

Program the computer to make such a table. Units are 
important here. Make your table from 40 seconds to 70 
seconds in divisions of one second. Be sure to give the 
speed in miles per hour. 

You may want to replace the teletype paper with a ditto 
stencil and distribute the chart to your less law-abiding 
friends. 




FAULTY SPEEDOMETER SPOTTER 



SECONDS 


MILES PER HOUR 


$* $ # * 4e % 


***** *** **** 


70 


51 .4286 


69 


52* 1739 


68 


52*9412 


67 


53*7313 


66 


54.5455 


65 


55*3846 


64 


56.25 


63 


57*1429 


62 


58*0645 


61 


59*0164 


60 


60 


59 


6 1 * 1 69 


53 


62*069 


57 


63* 1579 


56 


64.2857 


55 


65*4545 


54 


66*6667 


53 


67.9245 


52 


69.2308 


51 


70.5882 


50 


72 


49 


7 3.4694 


48 


75 


47 


76*5957 


46 


78*2609 


45 


80 


44 


81*8182 


43 


83*7209 


42 


85*7143 


41 


87.8049 


40 


90 



10 PRINT 'FAULTY SPEEDOMETER SPOTTER! !' 

20 PRINT 

30 PRINT 'SECONDS', 'MILES PER HOUR' 

40 PRINT '*******' '***** *** ****' 

50 PRINT 

60 FOR T = 70 TO 40 STEP - 1 

70LETF = T/3600 

80LETR=1/F 

90 PRINT T,R 

100 NEXT T 

110 END 



ANALYSIS 



Line 70 converts from seconds to hours and does the com- 
putation. 

Since £>=/?• Tit is obvious that R = D/T. 

The distance is 1 mile; hence, the numerator in line 80. F is 
the number of hours and R is the rate. 

Printout is to six places and relatively useless to that degree 
of accuracy. It is left as an exercise to reduce the output to a 
more meaningful number considering present day 
speedometers. 
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Paper Folding Problem 



Suppose you were to fold a piece of paper a whole 
bunch of times. Each successive fold should produce a 
piece of paper twice as thick as the previous one. 

Write a program to figure how thick the paper will be 
after n folds. Assume the unfolded thickness of the 
paper to be .01 inches. 

Be sure to convert inches to feet when you exceed twelve 
and then feet to miles when you exceed 5280 feet. The 
output should include, in tabular form, the number of 
folds and the thickness. Take a guess as to how many 
folds it takes to produce a piece of paper one mile thick. 

The geometric series whose general term is 2" might pro- 
ve helpful. Compare the results with the handbook 
values for successive powers of two. 

Consider starting with a piece of paper which has the 
same area as a football field. When you've figured out 
how many folds are needed to produce a mile-high pile, 
try to compute the size of each piece in the pile. It might 
be better to pose this part of the problem by allowing 
the paper to be cut and stacked. It is difficult to fold a 
piece of paper more than 8 or 10 times. 




FOLDS 


THICKNESS 


3|Ufc$$$ 


$3t!3ie)tt}tC3tC3tC9tc4C 





.01 INCHES 


1 


.02 INCHES 


2 


•04 INCHES 


3 


.08 INCHES 


4 


.16 INCHES 


5 


.32 INCHES 


6 


•64 INCHES 


7 


1.28 INCHES 


8 


2.56001 INCHES 


9 


5.12002 INCHES 


10 


10.24 INCHES 


1 1 


1.70667 FEET 


12 


3.41335 FEET 


13 


6.82669 FEET 


14 


13.6534 FEET 


15 


27.30 68 FEET 


16 


54.6136 FEET 


17 


109.227 FEET 


18 


218.455 FEET 


19 


436.91 FEET 


20 


873.82 FEET 


21 


1747.64 FEET 


22 


3495.28 FEET 


23 


1.32397 MILES 



10 PRINT FOLDS'/THICKNESS' 

20 PRINT '*****' '*********' 

30 PRINT 

40FORX = 0TO30 

50LETY = .01*(2tX) 

60 IF Y>= 12 THEN 75 

70 PRINT X, Y;' INCHES' 

72 GO TO 150 

75IFY/12>=5280THEN90 

80 PRINT X.Y/12; ' FEET' 

85 GO TO 150 

90PRINTX,Y/(5280*12); ' MILES' 

150 NEXT X 

200 END 



ANALYSIS 



The program is elementary and within the capability of any 
beginning programmer. Notice line 50 takes into account the 
thickness of a single piece of paper. Here it is assumed that the 
paper is .01 inches thick. An interesting exercise would be to 
have the student measure, somehow, the thickness of a single 
sheet to avoid compounding of errors. 

The significance of successive doubling becomes obvious in 
this program and the ones which follow. Most students would 
never have guessed that it takes only 23 folds for the paper to 
be a mile high. Interesting discussions usually can be made 
with the computer output from any such program. 

One discussion might involve the error introduced by ap- 
proximate measurements of the thickness of the paper. 
Another discussion might involve the physical size of the piece 
of paper necessary to achieve 23 folds. Computing its area 
might be interesting. How much might it weigh and how many 
men would it take to fold it? 
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The Sticky SaSary Question 



Suppose a man came to work for you. He didn't want to 
be paid like everyone else. He asked for a special system 
of payment based on doubling. 

He wanted to be paid twice a month for a total of 24 pay 
periods per year. He wanted only 1<P for his first pay 
period, 2<P for his second pay period, 4<P for his third and 
so on, each time doubling his previous pay-check, if his 
work was deemed satisfactory. 

As an intelligent employer, you should first like to in- 
vestigate the financial ramifications of this. 

Program your computer to print out the man's salary 
for each pay period along with a running total of how 
much he has received to date. 




PAY 


PERIOD 


JAN 


1 


JAN 


2 


FEB 


1 


FEB 


2 


MAR 


1 


MAR 


2 


APR 


1 


APR 


2 


MAY 


1 


MAY 


2 


J UN 


1 


JIM 


2 


JUL 


1 


JUL 


2 


AUG 


1 


AUG 


2 


SEP 


1 


SEP 


2 


OCT 


1 


OCT 


2 


NOV 


1 


NOV 


2 


DEC 


1 


DEC 


2 



SALARYSS 


SA 


LARY TO DA 


S 


• 01 


S 


.01 


s 


• 02 


$ 


• 03 


s 


• 04 


$ 


• 07 


s 


• 08 


s 


• 15 


s 


• 16 


s 


• 31 


s 


• 32 


s 


.63 


s 


• 64 


$ 


i.27 


s 


1.28 


s 


2.550 


$ 


2.56 


s 


5. 110 


$ 


5. 12 


s 


10.230 


s 


10*24 


s 


20.470 


s 


20*48 


$ 


40.9 50 


$ 


40*96 


s 


81.9 10 


$ 


81*92 


s 


163.8 30 


s 


163.84 


$ 


327.670 


s 


327.68 


s 


655.350 


$ 


655.36 


$ 


1310.710 


s 


1310.72 


s 


2621*430 


s 


2621.44 


s 


5242.870 


s 


5242.88 


s 


10485«75 


s 


10485.76 


$ 


209 71.51 


$ 


20971.52 


$ 


41943.030 


$ 


41943«04 


s 


8388 6.069 


s 


8 3886.08 


s 


167772* 15 



10 PRINT PAY PERIOD','SALARY$$','SALARY TO DATE' 

20 PRINT 

30LETT = 

40FORN = 0TO23 

50 READ A$ 

60LETS = (2tN)*.01 

70LETT = T + S 

80PRINTA$,'$';S,'$';T 

90 NEXT N 

95 DATA JAN 1 , JAN 2.FEB 1 ,FEB 2.MAR 1 ,MAR 2.APR 1 , APR 2.MAY 1 

96 DATA MAY 2, JUN 1,JUN2,JUL 1,JUL2,AUG 1,AUG2,SEP 1.SEP2 

97 DATA OCT 1 ,OCT 2,NOV 1 ,NOV 2,DEC 1 ,DEC 2 
100 END 
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The First Big Deal Involving Wheat 



The story is told of an ancient kingdom with a lazy king. 
Though benevolent and well-liked he was extremely 
fond of fun and frolic. He had many jesters and magi- 
cians in his court. 

He came to enjoy many things. At the hands of a par- 
ticularly gifted mathematician he came to enjoy the in- 
tricacies of mathematics. The mathematician taught 
him many tricks and games. The king quickly mastered 
them all. He commissioned the man to come up with a 
new and challenging game whereupon the magician in- 
vented CHESS. 

The king was delighted, fascinated and anxious to show 
his gratitude. He offered the mathematician anything in 
the kingdom. The mathematician declined. The king in- 
sisted he take something. The mathematician gave in. 
He said all he wanted was some grains of wheat for as 
many days as there were squares on the board. He 
wanted the amount of wheat computed as follows: a 
single grain on the first square, two grains on the second 
square, four grains on the third square, and so on, each 
time doubling the amount found on the previous 
square. The legend relates that at first the king thought 
it a meager request for so great a game as CHESS. He 
soon came to realize the enormous and impossible order 
he had to fill. The legend ends with the beheading of the 
mathematician. 

Write a program to compute how many grains of wheat 
were on each of the 64 squares of the CHESS board. 
Also have the program print out a running total of the 
partial sums. Compare the total amount with the total 
production per year. Some say there is enough wheat in- 
volved to cover the entire state of California to a depth 
of three feet. It is left as an exercise for the student to 
verify this conjecture. 





SQUARE 


GRAINS 


TOTAL 


1 

2 


1 

2 


1 

3 


3 


4 


7 


4 


8 


15 


5 


16 


31 


6 


32 


63 


7 


64 


127 


8 


128 


255 


9 


256.001 


51 1.001 


10 


512.002 


1023 


1 1 


1024 


2047.01 


12 


2048.01 


4095.01 


13 


4096.02 


8191.04 


14 


8192.03 


16383.1 


15 


16384. 1 


327 67. 1 


16 


32768.2 


65535.3 


17 


65536.3 


131072 


18 


131073 


262144 


19 


262146 


524290 


20 


524292 


1 .04858E+06 


21 


1 .048 58E+06 


2.09717E+06 


22 


2.09717E+06 


4. 19434E+06 


23 


4. 19434E+06 


8.. 388 68E+0 6 


24 


8.38868E+06 


1 .67774E+07 


25 


1 . 67774E+07 


3.35547E+07 


26 


3.35547E+07 


6.71095E+07 


27 


6.71094E+07 


1 .34219E+08 


28 


1 .34219E+08 


2.68438E+08 


29 


2.68438E+08 


5.36876E+08 


3P 


5.36877E+08 


1 .07375E+09 


31 


1 .07375E+09 


2. 14751E+09 


32 


2.14751 E+09 


4.29502E+09 


33 


4.29501E+09 


8.59003E+09 


34 


8.590 3E+09 


1 .7 180 IE* 10 


35 


1.71801E+10 


3.43601E+10 


36 


3.43601E+10 


6.87202E+10 


37 


6.87206E+10 


1 .37441E+1 1 


38 


1 .37440E+1 1 


2.74881E+1 1 


39 


2.74882E+1 1 


5.49763E+1 1 


40 


5.49765E+1 1 


1 .09953E+12 


41 


1 .09953E+12 


2. 19906E+12 


42 


2. 19906E+12 


4.3981 1E+I2 


43 


4.39812E+12 


8.79623E+12 


44 


8.79623E+12 


1 .75925E+13 


45 


1 .75925E+13 


3.51849E+13 



SQUARE 


GRAINS 




TOTAL 


46 


3.51849E+13 


7 


.03699E+13 


47 


7.03699E+13 


1 


•40740E+14 


48 


1.40740E+14 


2 


•81479E+14 


49 


2.81481E+14 


5 


.629 60E+14 


50 


5.629 62E+14 


1 


•12592E+15 


51 


1.12592E+15 


2 


►25184E+15 


52 


2e25184E+15 


4. 


.50368E-H5 


53 


4.50367E+15 


9< 


►00735E+15 


54 


9.00739E+15 


l< 


.80147E-M6 


55 


1.80148E+16 


3 


.6029 5E+16 


56 


3.60295E+16 


7< 


.20590E+16 


57 


7.20587E+16 


1. 


.44118E+17 


58 


1.44117E+17 


2« 


■88235E+17 


59 


2.88236E+17 


5. 


■76472E+17 


60 


5.76473E+17 


1« 


. 15294E+18 


61 


1 .15295E+18 


2. 


.30589E+18 


62 


2.30589E+18 


4. 


.61 178E+18 


63 


4.61 181 E+ 18 


9. 


22359E+18 


64 


9.22361E+18 


1. 


84472 E+ 19 


10 PRINT 'SQUARE',' 


GRAINS'/TOTAL' 






20 PRINT 








25LETS = 








30 FOR X = TO 63 








35LETS = S + 2tX 








40 PRINT X + l,2tX,S 








50 NEXT X 








60 END 









ANALYSIS 

The program is really rather trivial. Statement 25 resets the 
partial sum incrementer to zero for each run. Statement 35 
does the successive doubling. Statement 40 prints the expo- 
nent, term and partial sum. 

The output exceeds six places on the 21st square. An ideal ex- 
ercise is to rewrite the program to avoid truncation and type 
out the values with all significant places retained. 

Notice the error introduced by the internal conversion from 
binary to decimal on square 9. This is done automatically by 
the computer. The program could be made to remove these ex- 
traneous places. 
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You Be The Computer 



Suppose you find the following program lying around. 
Can you determine what it does to the variable nl 



100 PRINT 'NUMBER' 

110 INPUT N 

120 FOR 1=1 TON 

130LETA = I*(I + 1) 

140 IF A = N THEN 200 

150 IF A>N THEN 300 

160 NEXT I 

170 PRINT 

200 PRINT 'ANSWER = ;I 

210 GO TO 100 

220 PRINT 

300 PRINT 'NOT POSSIBLE' 

310GOTO100 

900 END 



NUMBER 
? 12 

/**SWER « 3 
NUMBER 
? 34 

NOT POSSIBLE 
NUMBER 
? 45 

NOT POSSIBLE 
NUMBER 
? 23 

NOT POSSIBLE 
NUMBER 
f 20 

ANSWER » 4 
NUMBER 
? 66 

NOT POSSIBLE 
NUMBER 
? 90 

/WSWER « 9 
NUMBER 
? STOP 
PROGR^S 



STOPPED* 



ANALYSIS 

The program simply takes a number, factors it and if it can 
find two consecutive integers as factors, it prints out the 
lowest only. If it cannot find two consecutive integers as fac- 
tors, it prints out NOT POSSIBLE. 

Actually, the program only investigates consecutive in- 
tegers. It just keeps multiplying consecutive pairs of integers in 
line 130 and tests their product against the number inputed. 
This is done in line 140. As soon as the product becomes larger 
than the number inputed— line 150— The NOT POSSIBLE 
message is printed. Where might such a program be useful? 
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E. 



Fibonacci And The Golden Ratio 



1 1 2 3 5 8 13 21 34 55 89 144 233 377 610.... 

Recognize the sequence of numbers listed above. It's a 
Fibonacci sequence. It has a number of interesting pro- 
perties. 

Every term is the sum of the two preceding it. 

The product of any two adjacent terms is either one 
more or one less than the two which sandwich it. 

The square of any term when added to the previous term 
is a Fibonacci number. (A number in the original se- 
quence.) 

How does this relate to the Golden Ratio? You might 
first ask what is the Golden Ratio? The Greeks used the 
ratio 1.618 to 1 as the basis for their architecture. Ac- 
tually 1 .618 is an approximation for (1 + V5)/2. 

Now, how are the two seemingly unrelated concepts 
brought together? Well, when any term, or rather each 
sucessive term of the sequence is multiplied by the 
Golden Ratio (1.618) the product gets successively 
closer to the next term. 

The chart below illustrates what I mean 



1 x 1.618., 

2 x 1.618., 

3 X 1.618., 
5 x 1.618., 
8 x 1.618., 



= 1.618 = 2 -.392 
= 3.236 = 3 + .236 
= 4.854 = 5 -.146 
= 8.090 = 8 + .090 
= 12.944= 13 -.056 



and we see that the deviation is decreasing. 

Write a program to prove this contention true by conti- 
nuing the chart until it is no longer feasible to do so. 

References: 

J.S. Meyer, More Fun With Mathematics, pp. 51 ff. 

J.H. Caldwell, Topics In Recreational Math, pp. 
12-20 
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FIBONACCI AND THE GOLDEN RATIO 



1 

2 

3 

5 

8 

13 

21 

34 

55 

89 

144 

377 
610 
987 
1597 * 
DEVI ATI 



61803 

61803 

61803 

61803 

61803 

•61803 

.61803 

.61803 

.61803 

.61803 

1 .61803 

1.61803 

1 .61803 

1 



.61803 = 2 - • 
.23607 = 3 + • 
.8 541 = 5 - . 1 
.09017 =8+9 
2.9443 = 13 - 



61803 
1 .61803 
1.61803 

ON GONE 



. . . — 



9.0 — 

«... 

• » TO 



21.0344 
33.9787 
55.0132 
88.9919 
144.005 
232.997 
377.002 
609.999 
987.001 
1597 = 



= 21 + 

= 34 - 

= 55 + 

= 89 - 

= 144 

= 233 

= 377 

= 610 

= 987 

1597 - 



= 2584 = 2584 
6 PLACES! ! 



381966 
2360 68 
45898 

.01699E-02 
.055727 

3.44429E-02 

.021286 

1 .31607E-02 

8.11768E-03 
+ 5.03540E-03 

- 3.08228E-03 
+ 1.95313E-03 

- 1.09863E-03 
+ 8.54492E-04 
2.44141E-04 

+ 4.88281E-04 



= ;B;' = ;C;'-';D 



05 PRINT 'FIBONACCI AND THE GOLDEN RATIO' 

07 PRINT 

10 READ A,C 

20LETG = (l+SQR(5))/2 

30LETB = A*G 

40IFB>=CTHEN80 

50LETD = C-B 

60 IF D = THEN 115 

70PRINTA;'*';G;'.. 

75 GOTO 100 

80LETD = B-C 

85 IF D = THEN 115 

90 PRINT A;' * ';G;' .... = ';B;' = ';C;' + ';D 

100LETA1=A 

105LETA = C 

107LETC = A1+C 

110 GO TO 20 

1 1 5 PRINT DEVIATION GONE ... TO 8 PLACES ! ! ' 

120 DATA 1,2 

200 END 



ANALYSIS 

Line 20 utilizes the formula which gives the Golden Ratio its 
value to eight places. Line 10 is used to read the first two 
Fibonacci numbers. It's easier to get the sequence started this 
way than to work with the leading zero. 

Line 30 multiplies by the current term. Two routines are 
then used. One if the product exceeds the next Fibonacci 
number, another if it is lower than the next term. D is the 
deviation and is computed in line 50. 

The next term is computed in line 107. The current term is 
stored in A in line 105. 
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Armstrong Numbers 



An /z-digit number is an Armstrong number if the sum 
of the n-th power of the digits is equal to the original 
number. 

For example, 371 is an Armstrong number because it 
has three digits such that: 

3 3 + T + l 3 

Write a program to find all Armstrong numbers with 2, 
3 or 4 digits. 

NOTE: When the number has four digits the fourth 
power is used. Do a little preliminary research here in 
number theory to give yourself an idea of how many 
numbers there are. 



153 IS AN ARMSTRONG NUMBER 

370 IS AN ARMSTRONG NUMBER 

37 1 IS AN ARMSTRONG NUMBER 

407 IS AN ARMSTRONG NUMBER 



100 FOR X = 100 TO 999 

110LETA = INT(X/100) 

120 LET B = INT(.1*(X-(100*A))) 

130LETC = X-(100*A + 10*B) 

140LETY=At3 + B!3 + C!3 

1 50 IF ABS(Y-X) > . 1 THEN * + 2 

160 PRINT X; ' IS AN ARMSTRONG NUMBER' 

170 NEXT X 

180 PRINT 

190 FOR X = 1000 TO 9999 

200LETA = INT(X/1000) 

210LETB = INT(10*FRP(X/1000)) 

220 LET C = INT(10*FRP(X/100)) 

230LETD = INT(10*FRP(X/10)) 

240IFAt4 + B14 + Ct4 + D14<>XTHEN* + 3 

250 PRINT 

260 PRINT X; ' IS AN ARMSTRONG NUMBER' 

270 NEXT X 

280 END 



References: 

Back issues of The Mathematics Teacher. 



ANALYSIS 



The digits of the number are separated in lines 1 10 through 
130. The reader is invited to follow a sample calculation along 
to observe the technique (see Programming Tricks, Number 7 
in Appendix). Each digit is cubed in line 140. 

The output indicates that there are four Armstrong numbers 
with three digits. The computer found none with four digits. 
The search could have continued up to five if the other loops 
had been eliminated. 
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The Famous Indian Problem 



Write a program to help the Indians out. The Indians in 
question are the ones who sold Manhattan Island to the 
Dutch for the paltry sum of $24.00. 

The sale took place in the year 1626. Suppose they had 
deposited the money in the local bank. Interest rates 
changed each century according to the table given 
below. 



1600's 


2% 


1700's 


3% 


1800's 


4<7o 


1900's 


5% 



Figure out how much the Indians would have in the 
bank today. Compound the interest annually. 





Reference: 

Samuel Selby, CRC Standard Mathematical Tables. 
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THE F/WOUS INDIAN PROBLEM !! I 

THE INDIES HAVE 3729818.2 DOLLARS ON ACCOWT ! ! ! 



05 PRINT THE FAMOUS INDIAN PROBLEM!!!' 

10 LET Y = 24 

20 FOR X = 1626 TO 1973 

25 IF X>= 1700 THEN 40 

30 LET R = . 02 

35 GO TO 100 

40 IF X>= 1800 THEN 55 

45 LET R=. 03 

50 GO TO 100 

55 IF X>= 1900 THEN 70 

60 LET R=. 04 

65 GO TO 100 

70 LET R=. 05 

100LETI = Y*R 

110LETY = Y + I 

120 NEXT X 

130 PRINT THE INDIANS HAVE ;Y;' DOLLARS ON ACCOUNT!!!' 

200 END 



ANALYSIS 

It is obvious that the X loop represents the year in question. 
Line 10 is the starting account balance. The variable represen- 
ting the running account balance is Y. R changes from century 
to century and is the interest rate. 

Lines 100 and 110 are the meat of the program. Line 100 
computes the interest. Line 110 adds the interest to the 
previous balance. 
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Morse Code By Computer 



Write a program that will read a message from a DATA 
statement in Morse Code and translate it into English. 

Have the computer type out the original coded message 
and the decoded message beneath it. 

Use the following alphanumeric code: 

. = DOT 
- = DASH 

Find an old Boy Scout Handbook for the intricacies of 
the code. 

NOTE: Be sure to define and use an end of message 
character. You might also consider some uniform spac- 
ing between each character. Remember the computer is 
not capable of the fine lines of time interpretation that 
human beings are. 




References: 

An interesting device which can be built to do this is 
described in the March, 1979 issue of Popular Elec- 
tronics. 
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Square Root By Iteration 



Write a program to compute the square root of any 
number. Use the iterative algorithm whereby a guess is 
entered along with the number to be square-rooted. 
Have the computer refine that guess by division and 
averaging until the square root is accurate to six decimal 
places. 

Place a counter in the iterative loop to determine how 
many iterations were required. 

Compare the iterative square root to the functional 
square root available in BASIC. 

Extra points for algorithms other than the successive 
division one. There are some fascinating geometric and 
arithmetic methods of square root computation. 

References: 

Peter Calingaert, Principles of Computation, p. 133, 

154. 

Ladis D. Kovach, Computer-Oriented Math, pp. 

50-55. 



SQUARE ROOTS BY ITERATION 

TYPE IN THE NUHBER YOU WISH SQUARE ROOTED 
FOLLOWED BY YOUR GUESS!! 
? 23*5 

AFTER 4 ITERATIONS* I FIND THE SQUARE ROOT OF 23 

TO BE 4*7958315 

THE FUNCTIONAL SQUARE ROOT IS 4*79 58315 

MOTHER NO* PLEASE* FOLLOWED BY YOUR 6UESS ! 
? 34* 2 

AFTER 6 ITERATIONS* I FIND THE SQUARE ROOT OF 34 

TO BE 5*8309519 

THE FUNCTIONAL SQUARE ROOT IS 5*8309519 

MOTHER N0« PLEASE* FOLLOWED BY YOUR GUESS! 
? 33333*7 

AFTER 9 ITERATIONS* I FIND THE SQUARE ROOT OF 33333 

TO BE 182.57327 

THE FUNCTIONAL SQUARE ROOT IS 182*57327 

MOTHER NO. PLEASE* FOLLOWED BY YOUR GUESS! 
? STOP 
PROGR/W STOPPED. 
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10 PRINT SQUARE ROOTS BY ITERATION' 

20 PRINT 

25 PRINT TYPE IN THE NUMBER YOU WISH SQUARE ROOTED ' 

30 PRINT FOLLOWED BY YOUR GUESS! ! ' 

35 GO TO 50 

40 PRINT 

45 PRINT ANOTHER NO. PLEASE, FOLLOWED BY YOUR GUESS!' 

50 INPUT B,A 

53LETG = 

54 IF A = THEN PRINT HEY FELLA, IT SMARTS TO DIVIDE BY 0!' 

55 FOR C=l TO 1000 
60LETD = B/A 
65LETE = (D + A)/2 
70LETG = G + 1 

75 IF A = E THEN 100 

80LETA = E 

85 NEXT C 

100 PRINT 

1 10 PRINT AFTER ;G;' ITERATIONS, I FIND THE SQUARE ROOT OF ;B 

115 PRINT TO BE ;E 

120 PRINT THE FUNCTIONAL SQUARE ROOT IS ;SQR(B) 

130 GO TO 40 

200 END 



ANALYSIS 

This program is a good example of the binary search 
routine, one- of the most efficient subroutines available for 
iterative procedures. It simple means you halve the interval 
you're working with to iterate to the next step. 

In this program the number whose square root we seek is 
divided by a guess (line 60), the quotient and the divisor are 
averaged to establish the next guess (lines 65 and 80). Line 75 
tests the two to see if they are the same. When they are the 
division will have produced the desired square root. The itera- 
tions are counted by the variable G. The reader is invited to try 
a similar procedure for roots other than 2. 
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Roman Numeral Addition And Multiplication 



Write a program to add and multiply any two Roman 
numerals inputed. 

Perform both operations on the numbers and print both 
answers in Roman form. Have the computer type out 
the Arabic equivalent underneath each set of opera- 
tions. 

In other words have the computer state the problem 
concisely. For example: 

XVII + XLIV = LXI 

Don't feel bad here. Archimedes and others were able to 
do extensive calculations in this system. How thankful 
they would be if they could work in our modern decimal 
system. 

Separate the function of the conversion from ARABIC 
to ROMAN and vice- versa from the computation. 



ROMAN NUMERAL ADDITION AND MULTIPLICATION 



TYPE TWO INTEGER NUMBERS, EACH LESS THAN 2000 
? 532,5 

ADDITION: 

DXXXII + V = DXXXVII 
( 532 + 5 = 537 ) 



MULTIPLICATION 

DXXXII * V = MMDCLX 
( 532 * 5 = 2660 ) 

ROMAN NUMERAL ADDITION AND MULTIPLICATION 

TYPE TWO INTEGER NUMBERS, EACH LESS THAN 2000 
? 365,11 

ADDITION: 

CCCLXV + XI = CCCLXXVI 
C 365 + 11 = 376 ) 



MULTIPLICATION 




CCCLXV * XI = MMMMXV 
( 365 * 11 = 4015 ) 
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100 
1 10 

120 

130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 

360 
370 
380 
39 
400 
410 
420 
430 
440 
450 
460 
470 
48 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 

590 



'ROMAN NUMERAL ADDITION AND MULTIPLICATION" 



460 
" + 

460 

n -- 

460 



BJ 



PRINT 
PRINT 
PRINT "TYPE TWO INTEGER NUMBERS. 

EACH LESS THAN 2000" 

INPUT A*B 

IF A>2000 THEN 120 

IF B>2000 THEN 120 

PRINT 

PRINT "ADDITION:" 

PRINT 

C=A+B 

Z=A 

GO SUB 

PRINT 

Z = B 

GO SUB 

PRINT 

Z = C 

GOSUB 

PRINT 

print "C";a; 

PRINT 
PRINT 
PRINT 
PRINT 
C = A*B 
Z = A 

GOSUB 
PRINT 
Z = B 
GOSUB 
PRINT 
Z = C 
GOSUB 
PRINT 

print "< i? ;aj" * ";b;" = ";c;"> 

GOTO 590 

RESTORE 

FOR 1=1 TO 7 

READ D 

N=INT(Z/D> 

READ D$. 

IF N=0 THEN 560 

FOR J=l TO N 

PRINT D$; 

NEXT J 

Z=Z-N*D 

NEXT I 

RETURN 

DATA 1000,"M".,500.»"D , 



"MULTI PLICATION" 



460 
•• * 

460 



460 



50,' 
END 



10* "X' 



•V", 1, 



100* 

t» T It 



6 DIM X(65) 

7 DIM M(39) 

8 MAT READ X 

9 PRINT 

10 PRINT ENTER ROMAN CHARACTERS OR 
ARABIC NUMERALS'; 

20 INPUT R$ 
30Q = L = 1 

40 CHANGE R$ TO M 
50T = 
70A= 1000 

72 IF M(M(0)) > 47 THEN 350 
75Q = 

80 IF M(M(0)) = 1 4 THEN 1 80 
90 IF M(M(0)) = 27 THEN 1 90 
100 IF M(M(0)) = 29 THEN200 
110IFM(M(0))= 17 THEN 210 
1 20 IF M(M(0)) = 8 THEN 220 
1 30 IF M(M(0)) = 9 THEN 230 
140 IF M(M(0)) = 1 8 THEN 240 
150M(1) = M(M(0)) 
152M(0) = 1 
154 CHANGE M TO 1$ 
160 PRINT IMPROPER 
CHARACTER ;I$ 



170 GO TO 9 

180 A = A-4 

190 A = A-5 

200 A = A-40 

210 A = A-50 

220 A = A-400 

230 A = A-500 

240 IF A<L THEN 310 

250T=T + A 

260L = A 

270M(0) = M(0)-1 

280 IF M(0) = THEN 330 

290 GO TO 70 

310T = T-A 

320 GO TO 270 

330 PRINT THE ARABIC 

EQUIVALENT IS ;T 
340 GO TO 9 
350IFQ = OTHEN150 
360 FOR W = 1TOM(0) 
380 IF M(W) < 48 THEN 150 
390 NEXT W 
400 R = VAL (R$) 
410 IF R > 30000 THEN 530 
420 M(0) = 
430 FOR K = 5 TO 65 STEP 5 

ANALYSIS 



440 IF R < X(K-4) THEN 5 10 

450M(0) = M(0)+X(K-3) 

460M(M(0)) = X(K-2) 

470M(0) = M(0) + X(K-l) 

480 M(M(0)) = X(K) 

490 R = R- X(K-4) 

500 GO TO 440 

510 IF R = THEN 550 

520 NEXT K 

530 PRINT CANNOT 

EASILY COMPUTE' 
540 GO TO 9 
550 CHANGE M TO 1$ 
560 PRINT 'ROMAN 

EQUIVALENT IS ';I$ 
570 GO TO 9 
5 80 DATA 1000,1,0,0,18 
590 DATA 900,1,8,1,18 
600 DATA 500,1,0,0,9 
610 DATA 400, 1,8, 1,9 
620 DATA 100,1,0,0,8 
630 DATA 90,1,29,1,8 
640 DATA 50,1,0,0,17 
650 DATA 40, 1,29, 1,1 7 
660 DATA 10,1,0,0,29 
670 DATA 9,1,14,1,29 
680 DATA 5,1,0,0,27 
690 DATA 4,1,14,1,27 
700 DATA 1,1,0,0,14 
710 END 



This program has been designed to perform the addition 
and multiplication in base 10 arithmetic and then convert the 
three numbers, digit-by-digit to Roman numerals. The 
repeated conversions provide an excellent illustration of the 
use of a subroutine. 

The reader will notice that no attempt has been made to 
avoid four, or more, successive appearances of the same letter 
in the Roman numeral. For example, the output might show 
CCCC for 400 instead of CD. The reader should find pro- 
gramming the modification necessary to give the proper letter 
pattern an interesting problem. 

A second program is provided which simply converts from 
Roman to Arabic or vice versa. 
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Conversion To and From Base 10 



Write a program to take any number n base 10 and con- 
vert it to its equivalent in a given base beginning with 
base 2. The program should also be capable of conver- 
ting any number back to its base 10 (decimal) 
equivalent. 

As input the user should include the base in current use, 
the desired base and perhaps the number of digits in the 
original number. This will simplify the computation. 

Algorithms for this program are numerous. The most 
popular being retention of the remainders after suc- 
cessive divisions by the desired base. Remember, with 
this method, the number in question is read by listing 
the remainders in the reverse order of their generation. 

Be careful when working in bases above base 10. Here, 
symbols should be used which take up only one 
character. Otherwise, the number 1 1 for example may 
be confused with two successive l's. 

When converting to base 10, simply generate successive 
powers of the base in question and multiply. Then add 
the results to reconstruct the base 10 equivalent. 



THIS PROGRAM WILL CONVERT TO AND FROM BASE TEN 
TO ANY BASE SPECI FI ED 



INPUT THE CURRENT BASE* BASE DESIRED AND THE NUMBER 
ALSO TYPE HOW MANY DIGITS ARE IN THE NUMBER 
? 10*2* I 14*3 

1 14 BASE 10 IS AS FOLLOWS IN BASE 2 
1 1 10 10 

INPUT THE CURRENT BASE* BASE DESIRED AND THE NUMBER 
ALSO TYPE HOW MANY DIGITS ARE IN THE NUMBER 
? 2* 10* 1 101011*7 

110 10 11 BASE 2 I S AS FOLLOWS IN BASE 10 
1101011 BASE 2 IS 107 IN BASE 10 



INPUT THE CURRENT BASE* BASE DESIRED AND THE NUMBER 
ALSO TYPE HOW MANY DIGITS ARE IN THE NUMBER 
? 3* 10*34*2 

34 BASE 3 I S AS FOLLOWS IN BASE 10 
NUMBER IS ILLEGAL IN BASE 3 
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05 DIM D(40) 

10 PRINT THIS PROGRAM WILL CONVERT TO AND FROM BASE TEN' 

20 PRINT 'TO ANY BASE SPECIFIED' 

22 LET SI =0 

30 PRINT 

35 PRINT 

40 PRINT INPUT THE CURRENT BASE, BASE DESIRED AND THE NUMBER' 

45 PRINT ALSO TYPE HOW MANY DIGITS ARE IN THE NUMBER' 

50 INPUT A,B,C,N 

55LETW = C 

60 PRINT 

65 PRINT C;' BASE ;A;' IS AS FOLLOWS IN BASE ;B 

70 IF A<> 10 THEN 200 

80LETK=1 

90 LET D(K) = C-(INT(C/B)*B) 

110LETK = K+1 

120LETC = INT(C/B) 

130 IF C = THEN 400 

140 GO TO 90 

200 FOR E = N-l TO STEP -1 

210LETI = INT(C/10tE) 

215 IF I>=A THEN 460 

220LETR = C-I*10tE 

230LETC = R 

240LETS = I*(AtE) 

250 LET SI = SI +S 

260 NEXT E 

300 PRINT W;' BASE ';A;' IS ';S1;' IN BASE ';B 

3 10 GO TO 30 

400 FOR K = 35 TO 1 STEP -1 

410 IF T = 7 THEN 430 

420IFD(K) = 0THEN450 

430 PRINT D(K); 

440LETT = 7 

450 NEXT K 

455 GO TO 30 

460 PRINT 'NUMBER IS ILLEGAL IN BASE ';A 

500 END 



ANALYSIS 



The program was limited to base 10 because of the length of 
the procedure for inter-base conversion. Actually most of the 
calculations involve base 10 anyway. The only other practical 
application that couldn't be done directly would be conversion 
from base 2 to base 8, that is binary to octal and vice-versa. 

The meat of the program is line 90. It stores the remainders 
after division by the base B because they are usually printed 
out in reverse order. The statement could have been shortened 
by using the MOD function which returns the remainder after 
division by a variable. The quotient is stored in the variable C 
and is made smaller by the successive division method. When 
C is zero the process is complete and the program branches to 
400 to print the result. It is assumed that the number to be 
printed will not contain more than 35 digits. Statement 420 
suppresses the printing of leading zeroes. 

Line 215 insures that such things as 1 10201 in base 2 are not 
computed. It checks to see that no number in the base in ques- 
tion either equals or exceeds the base. The subroutine in 220 
converts back to base 10 by simply computing successive 
powers of the base and summing up. 
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G.C.D.andL.C.M. 

Write a program to fine the G. CD. (greatest common 
divisor) and the L.C.M. (least common 
multiple)— sometimes called the lowest common 
denominator of a set of numbers. 

As input allow up to ten numbers, have the computer 
factor the numbers and then use a famous 
algorithm— you find it— to develop and print the 
G.C.D.andL.C.M. 

This problem is not difficult; so try to meet the 
challenge that faces every programmer— the length of 
the program. 

Try to make the program as concise as it is efficient. 

Euclid has all the hints you'll need for this one. 
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HCW MANY NUMBERS? 5 
TYPE IN THE NUMBERS FROM 

? 6 
? 12 
? 13 

? 15 
? 36 
6 HAS PRIME FACTORS 2 3 

12 HAS PRIME FACTORS 2 2 

13 IS PRIME 

15 HAS PRIME FACTORS 3 5 
36 HAS PRIME FACTORS 2 2 

G.G.D. IS 1 

L.C.M. IS 2340 

ANYMORE TO DO <Y OR N> ? Y 



HCW MANY NUMBERS? 3 

TYPE IN THE NUMBERS FROM 
LCWEST TO HIGHEST 

? 12 

? 24 

? 48 
12 HAS PRIME FACTORS 2 2 3 
24 HAS PRIME FACTORS 2 2 2 
48 HAS PRIME FACTORS 2 2 2 

G » C*D« IS 12 

L.C.M. IS 48 

ANYMORE TO DO CY OR N) ? N 



HCW MANY NUMBERS? 3 
TYPE IN THE NUMBERS FROM 
LOWEST TO HIGHEST 

? 6 
? 12 

? 21 
6 HAS PRIME FACTORS 2 
12 HAS PRIME FACTORS 2 
21 HAS PRIME FACTORS 3 



2 
7 



References: 

Robert Wisner, A Panorama of Numbers, p. 142-152. 
Edwin Stein, Fundamentals of Mathematics. 



G.CD. IS 3 

L.C.M. IS 84 

ANYMORE TO DO (Y OR N> ? Y 
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05 DIM B(10) 

10DIMA(10),A$(10) 

15 PRINT 

20 PRINT 'HOW MANY NUMBERS'; 

25 INPUT N 

30 PRINT 'TYPE IN THE NUMBERS FROM LOWEST TO HIGHEST' 

35FORX = lTON 

40 INPUT A(X) 

45 NEXT X 

50FORX = 1TON 

55LETC = 

62LETB(X) = A(X) 

65FORF = 2TOA(X) 

67IFF = B(X)THEN120 

70 IF A(X)/F < > INT(A(X)/F) THEN 1 10 

72 IF C = 0THEN PRINT A(X);' HAS PRIME FACTORS '; 

75 PRINT F; 

80LETC = C + 1 

100LETA(X) = A(X)/F 

105 GO TO 65 

110 NEXT F 

112 PRINT 

115 IF C>0 THEN 130 

120 PRINT A(X);' IS PRIME' 

130 NEXT X 

140FORZ = 2TOB(N) 

142LETY = 

145 FOR X = l TON 

150 IF B(X)/Z< > INT(B(X)/Z) THEN 200 

165LETY = Y + 1 

200 NEXT X 

210 IF Y<N THEN 250 

220LETT = Z 

250 NEXT Z 

255 PRINT 

260 PRINT G. C. D. IS ;T 

270 PRINT 

280LETD = B(N) 

290 FOR E=l TON 

300 IF D/B(E) < > INT(D/B(E)) THEN 330 

320 NEXT E 

325 PRINT L. CM. IS ;D 

327 GO TO 400 

330LETD = D+1 

340 GO TO 290 

400 PRINT ANYMORE TO DO (Y OR N)'; 

410 INPUT A$ 

420 IF AS = 'Y' THEN 15 

500 END 



ANALYSIS 

This program is a bit more complex than a simple divisor 
generator. We must print out factors here. 

This is done in the Floop from 65 to 1 10. When a number is 
divisible by F, F is printed and the quotient is recycled to be 
factored again. 

The numbers are entered in a loop to make the program in- 
teractive. Line 100 recycles the quotient to be factored again. 
Should none of the numbers in F be divisors then the variable 
C in line 80 will remain at zero and the number will be prime. 
This is tested for in lines 115 and 120. 

The G.C.D. is obtained by trying all numbers up to the least 
number in the list. When all numbers are successfully divided 
the result is stored in T(line 220), the last such Tis the G.C.D. 
When the incremented variable Y is as big as N then all 
numbers have been successfully divided by Z. 

A similar procedure is used for the L.C.M. Here we start 
with the largest listed number and increment upward by 1 until 
we find a number into which all the others go evenly. 

The program is limited to 10 numbers. 



X 
12 
45 
112 
15 



Y 

14 
72 

144 
90 



GOD 
2 
9 
16 
15 



OUT OF ARITHMETIC DATA IN 20« 



RUN STOPPED* 



10 PRINT' X',' Y'.'GCD' 

20 READ X,Y 

25 PRINT X,Y; 

30LETQ = INT(X/Y) 

40LETR = X-Q*Y 

50LETX = Y 

60LETY = R 

70IFR>0THEN30 

80 PRINT ,X 

90 GO TO 20 

100 DATA 12,14,45,72,112,144,15,90 

200 END 



ANALYSIS 

The Euclidian Algorithm for finding the G.C.D. of a given 
set of numbers is provided to show the contrast in program 
length with the previous algorithm. 

The procedure itself is classic and known to most teachers. 
Even the computer programming novice should be able to 
follow the program. 

The reader is invited to modify this program so that it will 
do exactly what the previous program does. 
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Two Equations In Two Unknowns 



Write a program to solve a system of two equations in 
two unknowns. 

Input the coefficients as given in the following scheme: 

ax + b v = c 
dx + e v = f 

Have the program test for a solution first. If it is deter- 
mined that a solution exists print it out. You may use 
one of many algorithms. 

Useful algorithms exist in the following areas: deter- 
minants, matrices, graphing, slopes or substitution. 



Y 



i 




26 



SOLUTION OF SIMULTANEOUS EQUATIONS 
USING CRAMERS RULE PUD DETERMINANTS 

ARE YOUR EQUATIONS IN THE RIGHT FORMAT<Y OR N)? Y 

TYPE IN THE COEFFICIENTS FROM LEFT TO RIGHT 

INCLUDING CONSTATS ON THE RIGHT HAND SIDE 

? 1* 1* 1 1* 1*- 1*5 

SOLUTION HAS X » 8 AND Y * 3 

PHY MORE TO DO CY OR N> 
? Y 

ARE YOUR EQUATIONS IN THE RIGHT FORMATCY OR N>? Y 

TYPE IN THE COEFFICIENTS FROM LEFT TO RIGHT 

INCLUDING CONSTANTS ON THE RIGHT HAND SIDE 

? \»2* 16# 1*2, 16 

YOUR EQUATIONS HAVE NO SOLUTION J | I 

EVEN I CANT HELP YOU 

fflY MORE TO DO (Y OR N) 

1 N 



10 PRINT 

20 PRINT 'SOLUTION OF SIMULTANEOUS EQUATIONS' 

25 PRINT 'USING CRAMERS RULE AND DETERMINANTS' 

30 PRINT 

35 PRINT 'ARE YOUR EQUATIONS IN THE RIGHT FORMAT'; 

40 PRINT '(Y OR N)'; 

45 INPUT A$ 

50IFA$ = 'Y'THEN70 

55 PRINT 'WELL HOP TO IT. . . . AND TRY ME LATER! ! ' 

60 STOP 

70 PRINT 'TYPE IN THE COEFFICIENTS FROM LEFT TO RIGHT' 

80 PRINT 'INCLUDING CONSTANTS ON THE RIGHT HAND SIDE' 

85 INPUT A,B,C,D,E,F 

90 IF A*E-B*D = THEN 200 

95 LET X = (C*E-B*F)/(A*E-B*D) 

100 LET Y = (A*F-C*D)/(A*E-B*D) 

110 PRINT 'SOLUTION HAS X = ';X;'ANDY = ';Y 

120 PRINT 

130 PRINT 'ANY MORE TO DO (Y OR N)' 

140 INPUT B$ 

150IFB$ = 'Y'THEN30 

160 STOP 

200 PRINT 'YOUR EQUATIONS HAVE NO SOLUTION! ! ! ' 

210 PRINT 'EVEN I CANT HELP YOU' 

220 GO TO 130 

300 END 

ANALYSIS 



Cramer's Rule for systems of equations works whenever the 
coefficient matrix for the system has a non-zero determinant. 

The algorithm simply computes two determinants and 
divides them to establish the value of each variable. The reader 
can follow the program in lines 95 to 100 to see which 
variables are involved. The test for a unique solution is in line 
90. 

A detailed discussion of the theory is either already known 
by most teachers or can be found in any linear algebra or in- 
termediate mathematics text. 
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Sum of a Geometric Series 



Write a program to calculate the first 50 terms of the 
geometric sequence given below. Use the three sets of 
parameters listed. 

B + BX + BX 2 + BX 3 + . . . + BX 49 

Compare your sum with the sum given by the formula 
for the first n terms of a geometric series. 

Use the following parameters: 

1) B=l and 1= 1/2 

2) B = 4 and X= 1/2 

3) B = 2 and X= 1/4 

HINT: 

A loop with an accumulator is called for here. It might 
look like this in BASIC: 

65 LET M = M + Z 

where Z is the term under computation and M is the 
partial sum. 

Expand your program to accept any geometric or 
arithmetic series. The program could evaluate sums, in- 
dividual terms and print out the series. 

Reference: 

Donald Greenspan, Introduction to Calculus, pp. 138-42. 

THIS PROGRm WILL COMPUTE THE U TH TEW mn SIM 
OF m ARITHMETIC OR GEOMETRIC SEQUENCE® 

IS THIS SEQUENCE ARITHMETIC OR GEOMETRIC* TYPEC A OR G* 
? A 

INPUT FIRST TERM* COMMOfi DIFFERENCE S, §*0* OF TEWS 
1 3*4# 15 

15 TH TERM IS 59 
SUM OF IS TEWS IS 465 

DO YOU WISH SEQOeiCE LISTED ( Y OR N»? Y 

3 ? 11 15 19 23 27 31 35 31 43 47 5! 55 S9 

mY MORE TO DO <Y OR M>? Y 

IS THIS SEQU^ICE ARITHMETIC OR GEOMETRIC* TYPEC A OR G> 
1 G 

WHAT IS THE FIRST TEftS* COMMON RATIO & MO* ®F TERMS 
? 4#2# 13 

13 TH TERM IS 16384 
SUM OF 13 TERMS IS 32764 

DO YOU WISH THE SEQUENCE LISTED* CY OR N)t Y 

4 8 16 38 64 128 256 512 1024 2048 409 6 3 192 16384 

PHY MORE TO DO (Y OR N)? N 
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10 DIM A$(10),B$(10),C$(10),D$(10) 

20 PRINT THIS PROGRAM WILL COMPUTE THE N TH TERM AND SUM' 

22 PRINT OF AN ARITHMETIC OR GEOMETRIC SEQUENCE.' 

25 PRINT 

30 PRINT 'IS THIS SEQUENCE ARITHMETIC OR GEOMETRIC, TYPE(A OR G)' 

35 INPUT A$ 

40IFA$ = 'G'THEN100 

45 PRINT INPUT FIRST TERM, COMMON DIFFERENCE & NO. OF TERMS' 

50 INPUT A,D,N 

55LETL = A + (N-1)*D 

60 PRINT N;' TH TERM IS ';L 

65 PRINT 'SUM OF ';N;' TERMS IS ';(N/2)*(A + L) 

70 PRINT 

72 PRINT DO YOU WISH SEQUENCE LISTED ( Y OR N)'; 

75 INPUT D$ 

80IFD$ = 'N'THEN200 

85FORX = lTON 

90 PRINT A; 

95LETA = A + D 

97 NEXT X 

99 GO TO 200 

100 PRINT WHAT IS THE FIRST TERM, COMMON RATIO & NO. OF TERMS' 
110 INPUT A,R,N 

120 PRINT 

125 PRINT N;'TH TERM IS ;A*(Rt(N-l)) 

130 PRINT 'SUM OF ';N;' TERMS IS ';(A*(RtN-l))/(R-l) 

140 PRINT 

145 PRINT 'DO YOU WISH THE SEQUENCE LISTED, (Y OR N)'; 

150 INPUT B$ 

160IFB$ = 'N'THEN200 

165 FOR X = l TON 

167 PRINT A; 

170LETA = A*R 

175 NEXT X 

200 PRINT 

202 PRINT 

205 PRINT 'ANY MORE TO DO (Y OR N)'; 

210 INPUT C$ 

220IFC$ = 'Y'THEN25 

300 END 



ANALYSIS 

The program simply uses the well-known formulas for 
arithmetic and geometric sequences. 

If the sequence is arithmetic the information is collected in 
line 50. The last term is computed in line 55 and the sum in line 
65 which also prints the sum. If the sequence is geometric the 
computations take place in lines 125 and 130. 

The problem is solved simply by adding the common dif- 
ference or ratio to the last term as many times as there are 
terms to be printed. This is done in lines 85 through 97 for 
arithmetic, and lines 165 through 175 for geometric. 
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Solution of a Quadratic Equation 



Write a program to solve a quadratic equation of the 
form: 

ax 2 + bx + c = 

when a, b and c are inputed. 

Be sure to test for a negative discriminant and print an 
appropriate warning. Also be sure to include a test for 
the zero denominator before the computer divides by 
that zero. 

Use the quadratic formula to predict the exact nature of 
the roots before they are actually computed. 

A little extra effort should enable you to have the pro- 
gram recognize and accomodate imaginary roots and 
type them out in the form 

a + bi 

Expand your program to include the sum and product 
of the roots. 

Perhaps you can work backwards and print out the 
quadratic equation when given the sum and product of 
the roots. 



INPUT COEFFICIENTS OF QUADRATI C IN FORM AXt 24.BX*0®0 

1 0*5,6 

THE EQUATION IS LINEAR NOT QUADRATIC!! 

mr MORE TO DO CY OR N> 

? Y 

INPUT C0EFF1CIWTS OF QUADRATIC IN FORM AXt2*BX+O"0 

? 1*5*6 

ROOTS ARE REAL* RATIONAL AND UNEQUAL 

THEY ARE -2 -3 

ANT MORE TO DO CT OR N> 

? T 

INPUT COEFFICIENTS OF QUADRATIC IN FORM AX* 2*m*O®0 

? 1*6*9 

ROOTS ARE RE A* RATIONAL UND EQUAL 

THEY ARE -3 -3 

mr MORE TO DO CY OR N> 

? Y 

INPUT COEFFICIENTS OF QUADRATIC IN FORM AXf2+BX+P>0 

? 6*5*7 

ROOTS ARE IMAGINARY!! 

ROOTS ARE i 

-•4J666666 * *99652!72 I 

-•41666666 - ®99652!78 I 

MY MORE TO DO CY OR N> 

? N 
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03DIMA$(10) 

05 PRINT 

10 PRINT INPUT COEFFICIENTS OF QUADRATIC IN FORM AX 1 2 + BX + C = 0' 

20 INPUT A,B,C 

30 IF A = THEN 200 

40LETD = Bt2-4*A*C 

45 IF D<0 THEN 250 

50 LET X 1 = (-B + SQR(D))/(2* A) 

60 LET X2 = (-B-SQR(D))/(2*A) 

70 IF D = THEN 220 

80 IF SQR(D) < > INT(SQR(D)) THEN 1 10 

90 PRINT ROOTS ARE REAL, RATIONAL AND UNEQUAL' 

100 PRINT 'THEY ARE ';X1,X2 

105 GO TO 300 

1 10 PRINT 'ROOTS ARE REAL, IRRATIONAL AND UNEQUAL' 

120 PRINT 'THEY ARE APPROXIMATELY ;X1,X2 

130 GO TO 300 

200 PRINT 'THE EQUATION IS LINEAR NOT QUADRATIC! ! ' 

210 GO TO 300 

220 PRINT 'ROOTS ARE REAL, RATIONAL AND EQUAL' 

230 PRINT 'THEY ARE ;X1,X2 

240 GO TO 300 

250 PRINT 'ROOTS ARE IMAGINARY!!' 

260 PRINT 'ROOTS ARE :' 

265PRINT-B/(2*A);' + ';SQR(ABS(D))/(2*A);' I' 

267 PRINT -B/(2*A);' - ';SQR(ABS(D))/(2*A); ' I' 

300 PRINT 'ANY MORE TO DO (Y OR N)' 

310 INPUT A$ 

320IFA$ = 'Y'THEN05 

400 END 



ANALYSIS 

The quadratic formula has been used. Some frills have been 
added. 

Line 30 checks to be sure the equation is second degree. Line 
40 computes the discriminant. Line 45 accesses the subroutine 
for computing the imaginary roots. This is done in lines 265 
and 267. If the roots are real they are computed in lines 50 and 
60. 

The rest of the program contains simple conditional bran- 
ches. The discriminant is tested and the computer prints the 
appropriate messages. Line 80 tests to see if the discriminant is 
a perfect square. Notice the mathematical techniques for do- 
ing that. 

This program can handle any input a student may give it. It 
is always best to try to include these contingencies in the pro- 
gram. That way the error messages typed out will be your 
own. Some error messages in BASIC are obscure. BASIC is, 
however, far better than most programming languages as far 
as understanding error messages is concerned. 
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Algebraic Mixture Problems By Computer 



Every algebra student has cringed at the thought of do- 
ing word problems. All word problems are not alike. 
Perhaps the most fearsome type are the mixture pro- 
blems. Some teachers avoid them. 

If you can program these type problems then you've got 
them licked. Write a program to solve mixture problems 
of the type given below. 

Suppose it is desired to mix a certain amount of coffee 
at 69<F per pound with 23 pounds of coffee at 98$ per 
pound. We want to know how many pounds of the 69<P 
coffee we will need to make a mixture which will cost 
73 <P per pound. 

Let any of the above quantities be available as 
unknowns. Do the problem in general, program it, and 
you'll find you've gone a long way towards understan- 
ding this type of problem. 



WHAT UNITS USED <LBS*0Z*ETC) AND DEN0M1NATI0N C DOLLARS* CENTS) 

? P0UNDS* CENTS 

INPUT # 0F P0UNDS AND CENTS PER P0UNDS 0F FIRST ITEM 

IF A QUANTITY IS UNKN0WN* ENTER ZER0 

? 0* 120 

INPUT # 0F P0UNDS AND CENTS PER P0UNDS 0F SEC0ND ITEM 

? 0*70 

INPUT # 0F P0UNDS AND CENTS PER P0UNDS 0F MIXTURE 

? 50* 100 

MIX 30 P0UNDS AT 120 CENTS PER P0UNDS 

WITH 20 P0UNDS AT 70 CENTS PER P0UNDS 

T0 GET A MIXTURE 0F 50 P0UNDS AT 100 CENTS PER P0UNDS 

ANYTHING ELSE (YES 0R N0>? YES 



WHAT UNITS USED (LBS* 0Z* ETC) AND DEN0MINATI0N (D0LLARS* CENTS) 

? BARRELS* D0LLARS 

INPUT # 0F BARRELS AND D0LLARS PER BARRELS 0F FIRST ITEM 

IF A QUANTITY IS UNKN0WN* ENTER ZER0 

? 0*3.20 

INPUT # 0F BARRELS AND D0LLARS PER BARRELS 0F SEC0ND ITEM 

? 10*5*60 

INPUT # 0F BARRELS AND D0LLARS PER BARRELS 0F MIXTURE 

? 0*41 

MIX 20 BARRELS AT 3*20 D0LLARS PER BARRELS 

WITH 10 BARRELS AT 5*6 D0LLARS PER BARRELS 

T0 GET A MIXTURE 0F 30 BARRELS AT 4 D0LLARS PER BARRELS 

ANYTHING ELSE (YES 0R N0)? N0 
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PROBLEM 



T 



WRITE 

PROGRAM 




100 PRINT'WHAT UNITS USED (LBS,OZ,ETC) AND DENOMINATION (DOLLARS.CENTS)' 

110 INPUT U$,M$ 

120 PRINTTNPUT # OF ';U$;' AND ';M$;' PER ';U$;' OF FIRST ITEM' 

130 PRINTTF A QUANTITY IS UNKNOWN, ENTER ZERO' 

140 INPUT Nl, CI 

1 50 PRINTTNPUT # OF ';U$;' AND ';M$;' PER ';U$; ' OF SECOND ITEM' 

160 INPUT N2.C2 

170 PRINTTNPUT # OF ';U$;' AND ';M$;' PER ';U$;' OF MIXTURE' 

180 INPUT N3.C3 

190LETA = (Cl+C2)/2 

200 IF Nl = AND N2 = THEN 310 

210 IF Nl =0 AND N3 = THEN 5 10 

220 IF N2 = AND N3 = THEN 510 

230 IF Nl =0 THEN Nl =(N3*C3-N2*C2)/C1 

240 IF N2 = THEN N2 = (N3*C3-N1 *C1)/C2 

250N3 = N1+N2 

260 IF C3 = THEN C3 = (N1*C1 + N2*C2)/N3 

270 PRINT'MIX ';N1 ;' ';U$;' AT ';C1 ;' ';M$;' PER '; U$ 

280 PRINT'WITH ';N2;' ';U$;' AT ';C2;' ';M$;' PER ';U$ 

290 PRINT'TO GET A MIXTURE OF ';N3;' ;U$;' AT ;C3;' ;M$;' PER ;U$ 

300 GO TO 780 

3 10 IF A >C3 THEN 350 

320LETLl=N3/2 

330LETM1=N3 

340 GO TO 370 

350 LET LI =0 

360LETMl=N3/2 ^f^^UNDE 

370LETK2 = N3*C3 ^-*— *■"«=• 

380 FOR X = LI TO Ml STEP . 1 

390 IF X*C1 + (N3-X)*C2 = N3*C3 THEN 480 

400 LET Kl = N3*C3-X*C1-(N3-X)*C2 ... - 

410IFABS(K1)>ABS(K2)THEN440 JYES 

420LETK2 = K1 

430LETX5=X 

440 NEXT X 

450 IF INT(X5 + .0001) = INT(X5 + .001) THEN Nl = INT(X5 + .001) ELSE Nl = X5 

460LETN2 = N3-N1 

470 GO TO 270 

480LETN1=X 

490LETN2 = N3-X 

500 GO TO 270 

5 10 IF N2 = THEN 700 

520LETK2 = N2*C2*100 

530 IF A>C3 THEN 570 

540 LET LI =0 

550LETM1=N2 

560 GO TO 590 

570LETL1=N2 

580LETM1=(100*N2) 

590 FOR X = LI TO Ml STEP .1 

600 IF X*C1 + N2*C2 = (N2 + X)*C3 THEN 670 

610 LET Kl = (N2 + X)*C3-X*C1-N2*C2 

620 IF ABS(K1)> ABS(K2) THEN 650 

630LETK2 = K1 

640LETX5 = X 

650 NEXT X 

660 GO TO 750 

670LETN1=X 

680LETN3 = N1+N2 

690 GO TO 270 

700C1 = =C2 

710N1 = =N2 

720 GO TO 520 

730LETN3 = N1+N2 

740 GO TO 270 

750 IF INT(X5 + .0001) = INT(X5 + .001) THEN Nl = INT(X5 + .001) ELSE Nl = X5 

760LETN3 = N2 + N1 

770 GO TO 270 

780 PRINT 'ANYTHING ELSE (YES OR NO)'; 

790 INPUT AS 

800 IF A$ = 'YES ' THEN 100 

810 END 



NO 






ANALYSIS 

This program solves the typical mixture word problem 
found in most elementary algebra courses. 

The program is limited to two quantities. The user can 
specify units and/or price for the two quantities to be mixed. 
The user must also specify the price and amount of the mix- 
ture he desires. 

The program uses zeroes for unknowns. The unknown is 
tested and analyzed in lines 200 through 260. The length of the 
program is due to the large number of possible combinations. 

The mathematics is elementary and the user is invited to 
peruse the program, following a line of algorithmic thinking 
for a specified variable. 
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Synthetic Division 



Synthetic division is a process for factoring a 
polynomial by guessing whether a number is a factor. 
That number is then analyzed in conjunction with the 
coefficients to produce a remainder and the coefficients 
of the quotient. Should the remainder be zero the 
original number would then be a factor. Actually, root 
is a better word here than factor. 

Write a computer program to perform synthetic division 
on a given polynomial. Have the computer accept the 
polynomial's coefficients as well as the guess for a root. 
Have the computer indicate when the remainder is zero. 
Have the computer type out the quotient polynomial 
and the remainder if it is non-zero. Remember the 
number used in the test and the binomial factor usually 
differ by a sign. 

Be sure to research the process carefully before beginn- 
ing. 




Reference: 

M. Keedy, Algebra and Trigonometry, p. 177. 
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INPUT THE DEGREE OF THE POLYNOMIAL FCX> 
? 3 

STARTING WITH Xt 3 INPUT THE COEFFICIENTS 
? I 

? 4 

? B 

? 16 

INPUT THE DIVISOR IN THE FORM <X+ )? 4 

1 Xt 34-41 Xt 24- 8 Xt 1+ 16 Xt 0* 
QUOTIENT IS IX* 2 4- OXf ! 4- 8X* + 
REMAINDER I S - 16 
CX 4- 4) IS NOT -A FACTOR! 



ANY MORE TO DO 

? YES 

INPUT THE DEGREE OF THE POLYNOMIAL F<X> 

? 2 

STARTING WITH Xt 2 INPUT THE COEFFICIENTS 

? 1 

? 7 

? 12 

INPUT THE DIVISOR IN THE FORM <X4- >? 4 

1 Xt 2+ 7 Xt 1+ J2 Xt 04- 
0UOTIEMT IS IXt 1 + 3Xt ♦ 
CX4- 4) IS A FACTOR! 

ANY MORE TO DO 
? NOPE 



100DIMA(15),B(15) 

1 10 PRINT 'INPUT THE DEGREE OF THE POLYNOMIAL F(X)' 

120 INPUT N 

130LETW = N-1 

140 PRINT 'STARTING WITH X t ';N;' INPUT THE COEFFICIENTS' 

150FORX = 1TON + 1 

160 INPUT A(X) 

170 NEXT X 

1 80 PRINT 'INPUT THE DIVISOR IN THE FORM (X + )'; 

190 INPUT D 

200FORX = 1TON + 1 

210 PRINT A(X);'Xt';W+l;' + '; 

220LETW = W-1 

230 NEXT X 

240LETD = -D 

250 PRINT 

260 PRINT 'QUOTIENT IS '; 

270LETB(1) = A(1) 

280LETW = N-1 

290 FOR X = 1 TO N 

300LETT = X+1 

310LETB(T) = A(T) + (D*B(X)) 

320 PRINT B(X);'Xt';W;' + '; 

330LETW = W-1 

340 NEXT X 

350 PRINT 

360IFB(N + 1) = 0THEN390 

370 PRINT 'REMAINDER IS ';B(N + 1) 

375 PRINT '(X + ';-D;') IS NOT A FACTOR!' 

380 PRINT 

385 GO TO 400 

390 PRINT '(X+ ';-D;') IS A FACTOR!' 

400 PRINT 

410 PRINT ANY MORE TO DO' 

420 INPUT AS 

430 IF A$ = 'YES' THEN 100 

440 END 



ANALYSIS 

A close look at synthetic division makes it obvious that it is 
not a difficult arithmetic procedure. It is, however, tedious 
and time consuming. 

The program uses a rather inefficient input loop. The coef- 
ficients could just as easily have been inputed from a data 
statement. An attempt was made to make the program interac- 
tive, so that roots could be searched out. 



The variable W keeps track of the exponents. The 200 loop 
ending in 230 simply prints out the polynomial. Line 240 
changes the sign of the binomial factor form so that input may 
be made in the form (x + D). 

The actual division is done in line 310. A subscripted variable 
is used to store the elements until we are ready to print out the 
quotient. The remainder is tested in line 360 and printed in the 
next line. If the remainder is zero that fact is indirectly an- 
nounced by line 390. Notice that the value of D is again chang- 
ed by a sign to get the output to be consistent with the 
binomial form which we inputed. 
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Systems Of Equations Up To Four Unknowns 

Write a program to solve a system of equations with up 
to four unknowns. You may use any algorithm you like. 
Cramer's Rule with the use of determinants is one way. 
Gaussian elimination is a second. A trial and error ax- 
iom is to be discouraged. 

There are some iterative algorithms available, but they 
may not be as easy as Cramer's Rule. 

The use of matrices is also a possibility. For example, if 

ax + by + cz = d 
ex + f y + gz = h 
ix + ]y + kz = 1 

then in matrix notation 






which implies that: 

A * X = K 

A-i*A* X= A-i * K 

1 * X = A-i * K 

X= A-i*K 

With the use of matrix instructions or an algorithm for 
finding an inverse, the problem is quite simple. 

Note: Be sure to test the system for consistency and ex- 
istence of a solution! 



References: 

Computer Oriented Mathematics by NCTM, 

Chapter 3, page 95. 

Mathematics for High School: Introduction to 
Matrix Algebra, SMSG. 
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•99999982 
-2»9999999 

2.Q 
SOLUTIONS ARE 



- 2*9999996 

2V9999999 

-.99999999 



1.9999999 
••9999999 6 
2«4835265E-09 



•99999981 
- 1»9999999 
2V0 



15DIMA(3,3),X(3,1),C(3,1),B(3,3) 

25 MAT READ A,X 

30MATB = INV(A) 

45 MAT PRINT B 

50MATC = B*X 

60 PRINT SOLUTIONS ARE ' 

70 MAT PRINT C 

80 DATA 1,2,3,2,4,5,3,5,6,3,4,5 

100 END 



ANALYSIS 

The program is elementary with the MATRIX statements in 
BASIC. Line 25 reads the 3 x 3 matrix A and the column vec- 
tor X. Line 30 inverts A and stores the inverse in a matrix B. 
Line 45 prints the inverse. Notice the truncation which takes 
place. The program could be modified to clean up the prin- 
tout. This is left as an exercise. 

Line 50 sets up the solution by multiplying the inverse by the 
column vector. The theory is fully explained on the student 
problem sheet. Notice the word MAT is necessary in line 50 to 
effect matrix multiplication. 

Line 70 prints the answer in column vector form. 
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fVfat hematics, the Monkey and the Banana 



A rope over the top of a fence has the same length on 
each side. The rope weighs one-third pound per foot. 
On one end hangs a monkey holding a banana, and on 
the other end is a weight equal to the weight of the 
monkey. The banana weighs two ounces per inch. 

The rope is as long as the age of the monkey. The weight 
of the monkey in ounces is as much as the age of the 
monkey's mother. The combined ages of the monkey 
and the monkey's mother are 30 years. Half the weight 
of the monkey, plus the weight of the banana, is a 
fourth as much as the weight of the weight and the 
weight of the rope. 

The monkey's mother is half as old as the monkey will 
be when it is three times as old as its mother was when 
she was half as old as the monkey will be when it's as old 
as its mother will be when she is four times as old as the 
monkey was when it was twice as old as its mother was 
when she was a third as old as the monkey was when it 
was as old as its mother was when she was 30 times as 
old as the monkey was when it was a fourth as old as it is 
now. 

How long is the banana? There is a solution possible 
with the information given above. 
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Permutations and Combinations Computed 



Write a program to compute how many permutations or 
combinations there are for N things taken R at a time. 

The user should be able to specify which measure he 
wants. The computer should then simply print out how 
many. This is a simple matter of learning some for- 
mulas. These formulas contain factorials and these must 
be computed prior to inclusion in the final computation. 
The factorial computation should be done in a loop 
prior to the actual plugging-in to the formula. 




References: 

Fred Mosteller, Probability and Statistics, p. 19-47 

Henry Alder, introduction to Probability and 
Statistics, pp. 60-7 
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DO YOU WISH PERMUTATIONS OR COMBINATIONS (P OR C> 
? P 

PERMUTATIONS - HOW MtfvIY OBJECTS AND HOW MANY AT A TIME 
? 15/4 

THERE ARE 32760.0 WAYS TO PERMUTE 
15 THINGS 4 AT A TIME! 

DO YOU WISH PERMUTATIONS OR COMBINATIONS (P OR C) 
? C 

COMBINATIONS - HOW MANY OBJECTS AND HOW MANY AT A TIME 
? 12^6 

THERE ARE 924 WAYS TO COMBINE 
12 THINGS TAKEN 6 AT A TIME!! 

DO YOU WISH PERMUTATIONS OR COMBINATIONS <P OR C) 
? STOP 
PR06R/*I STOPPED* 



100 PRINT 

1 10 PRINT DO YOU WISH PERMUTATIONS OR COMBINATIONS (P OR Q' 

120 INPUT A$ 

130IFA$ = 'C'THEN160 

140 PRINT PERMUTATIONS - HOW MANY OBJECTS AND HOW MANY AT A TIME' 

150 GO TO 170 

160 PRINT 'COMBINATIONS - HOW MANY OBJECTS AND HOW MANY AT A TIME' 

170 INPUT N,R 

180LETF = G = H = 1 

190LETB = N-R 

200FORX = 1TON 

210LETF = F*X 

220 NEXT X 

230FORY = 1TOB 

240LETG = G*Y 

250 NEXT Y 

260IFA$ = 'C'THEN300 

270 PRINT 'THERE ARE ';F/G;' WAYS TO PERMUTE ' 

280 PRINT N;' THINGS ';R;' AT A TIME!' 

290 GO TO 100 

300 FOR Z=l TOR 

310LETH = H*Z 

320 NEXT Z 

330 PRINT 'THERE ARE ';F/(H*G);' WAYS TO COMBINE ' 

340 PRINT N;' THINGS TAKEN ';R; ' AT A TIME! !' 

350 GO TO 100 

360 END 



ANALYSIS 

This program uses the old familiar formulas for permuta- 
tions and combinations. The loops beginning at 200 and 230 
are used to compute the factorials. 

Notice how the partial product is reset to 1 in line 180 for 
each run. 
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Generating Your Own Log Table 

You've all had the opportunity to make use of log 
tables, during your mathematical lives. Ever wonder 
where those tables come from? Here's a chance for you 
to make a set for yourself. 

Limit the table to the integers between 1 and 100. Of 
course you may not use the built-in LOG function 
available in BASIC. However, with the knowledge that: 

logio*=a only when K^rr* 

one should easily be able to proceed by solution of that 
relation. 

Since: 

log 10 100 = 2 
it only stands to reason that: 

10 2 =100 

Try to get the output in the following form (it's con- 
cise): 

1 ° 4 *0 788 1136 1458 1758 2038 2301 2550 2785 

2 3009 3221 3423 3616 3801 3978 4149 4313 4471 4623 

3 4770 4913 5051 5184 5314 5440 5562 5681 5797 5910 

4 6020 6127 6232 6334 6434 6532 6627 6721 6812 6902 

5 6989 7075 7.160 7242 7324 7403 7482 7558 7634 7708 

6 7781 7853 7924 7993 8062 8129 8195 8261 8325 8388 

7 8451 8512 8573 8633 8692 8751 8808 8865 8921 8976 

8 9031 9085 9138 9191 9243 9294 9345 9395 9445 9494 

9 9542 9590 9638 9685 9731 9777 9823 9868 9912 9956 

IMPORTANT: Omit the characteristic. You may retain 
1 1 LET W= the decimal point if you wish. FOUR places please. 
120 FOR X=l TO 9 
130 PRINT XI 
140 FOR Y=0 TO 9 
150 LET Z=( 10*X+Y*>*. 1 
160 IF ABSC 10tW-Z)>.001 THEN 210 
170 LET T=INT( 10000*W) 
190 PRINT TAB<6*Y+4)ITJ 
200 GOTO 230 
210 LET W=W+.0001 
220 GOTO 160 
2 30 NEXT Y 
240 PRINT 
250 NEXT X 
260 END 
READY 



ANALYSIS 



References: 



The program works by testing decimals as powers of 10. Samuel Selby, Standard Mathematical Tables, 

When they produce the desired number they are printed . PP . 1 -6 . 

Line 160 tests the power. Line 170 takes only the first four J.S. Meyer, Fun With Mathematics, pp. 90-99. 
places of that power. Line 180 prints and orders the format of 

the columns. WL - Bashaw, Mathematics for Statistics, 

pp. 253-264. 
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Listing of Permutations and Combinations 

There is sometimes a need to know more than just the 
number of combinations or permutations of a given 
number of elements. It is sometimes necessary to list the 
permutations or combinations that start with a given let- 
ter or series of letters. 

Write a program to type out all possible permutations or 
combinations that have a certain property. Perhaps a se- 
quence of items can be specified in a DATA statement. 
The program should also include the total possible per- 
mutations or combinations from the standard formula. 




References: 

Fred Mosteller, Probability and Statistics, pp. 19-47. 

Henry Alder, Introduction to Probability and 
Statistics, pp. 60-7. 
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14 2 3 

2 3 4 1 

3 2 14 

4 13 2 



10FORA=lTO4 

20FORB=lTO4 

30FORC=lTO4 

40FORD=lTO4 

50IFA = BORA = CORA = DTHEN200 

60IFB = CORB = DORC = DTHEN200 

70 PRINT A;B;C;D;' '; 

200 NEXT D 

210 NEXT C 

220 NEXT B 

230 NEXT A 

300 END 



ANALYSIS 

It's a sneaky way to do it but it works. The algorithm simply 
takes all numbers from 1,111 to 4,444 and throws away any 
that have a matching digit. This is done by statements 50 
through 62. 

It can be expanded to do 5 or 6 numbers permuted by 
changing both the end limit of the loops and the comparison 
test in lines 50 and 60. 
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Analysis off a Parabola With Graph 



Write a program to accept the equation of any 
quadratic. Test the equation to see if it will produce a 
parabola. Reject the equation if it will not be a 
parabola. 

Have the computer type out the zeroes of the curve; the 
high point or low point; the equation of the axis of sym- 
metry; whether it is concave upward or downward; 
along with the sum and product of the roots. Have the 
computer plot the graph of the parabola indicating the 
zeroes of function with symbols other than the ones 
you're plotting with. Have the computer include the axis 
of symmetry. 

Be sure the roots are real before attempting solution on 
the real number axes. You may use the quadratic for- 
mula for the zeroes or you may wish to use a program 
referred to in another problem. (See Zeroes of a Func- 
tion by iteration). 

Do some preliminary research in an algebra text on con- 
ic sections. Save yourself some time by reducing the pro- 
blem to its essentials. 




References: 

W.A. Wilson, Analytic Geometry, pp. 98-108. 
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INPUT COEFFICIENTS OF QUADRATIC IN FORM AX* 2*BX«-C«0 

? 2#6#8 

N0 REAL R00TS 

ANYM0RE T0 D0 CYES 0R N0) 

? YES 

INPUT COEFFICIENTS 0F QUADRATIC IN F0RM AXt2^BX*C«0 

? l,2s-S 

C0NCAVE UP 

R00TS 0F QUADRATIC ARE 2 AND -4 

SUM 0F R00TS IS -2 

PRODUCT 0F R00TS IS -8 

AXIS 0F SYMMETRY IS X - -1 

HIGH 0R LOW P0INT IS C-l * ~9> „ Af5AOttl A 

GRAPH 0F PARABOLA 
<*N0TE*X-AXIS IS VERTICAL) 

SCALE ON Y-AXIS IS 1 SPACE » i SPACE ,..............******♦♦♦♦♦♦♦♦♦♦♦♦ 

-8 ♦ 

* 

-6 ♦ * 

• 5 ♦ * 

.4 X 

-3 * ♦ 

-2 * ♦ 

-i * ♦ 

* ♦ 

1 * ♦ 

2 X 

3 ♦ * 

4 ♦ * 

5 ♦ * 

6 ♦ 
ANYMORE TO DO (YES OR N0> 
? NO 



30 PRINT'INPUT COEFFICIENTS OF QUADRATIC IN FORM AX 1 2 + BX + C = 

40 INPUTA,B,C 

50 IF A = THEN 440 

60D = Bt2-4*A*C 

70 IF D<0 THEN 460 

80X1=(-B + SQR(D))/(2*A) 

90X2 = (-B-SQR(D))/(2*A) 
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1 10 IF A < THEN PRINT'CONCAVE DOWN' ELSE PRINT'CONCAVE UP' 

120 PRINT ROOTS OF QUADRATIC ARE ;X1;' AND X2 

130 PRINT SUM OF ROOTS IS ;-B/A 

140 PRINT PRODUCT OF ROOTS IS ;C/A 

150E = -B/(2*A) 

160 PRINT AXIS OF SYMMETRY IS X = ;E 

170X3 = A*Et2 + B*E+C 

180 PRINT 'HIGH OR LOW POINT IS (';E;' , ';X3;')' 

200 PRINT TAB(25); 'GRAPH OF PARABOLA' 

210 PRINT TAB(21);'(*NOTE*X-AXIS IS VERTICAL)' 

220 LET X = E-7 

230 Y = A*Xt2 + B*X + C 

233B$ = ' + ' 

234 C$ = '*' 

240 IF ABS(Y) + ABS(X3) > 65 THEN 400 ELSE K = 1 

245 PRINT'SCALE ON Y-AXIS IS 1 SPACE = '; 1/K; ' SPACE' 

246 FOR Q = l TO 63 

247 PRINT TAB(8);' + '; 

248 NEXT Q 

250 IF A < AND X3 < = THEN 330 

260 IF A > AND X3 > = THEN 480 

270 IF A < AND X3 > = THEN 540 ELSE 670 

280IFB1=B2THEN800 

285IFINT(B1) = INT(B2)THENC$ = ' ' 

290 PRINT X;TAB(8);TAB(B1);B$;TAB(B2);C$ 

300X = X + 1 

310Y = A*Xt2 + B*X + C 

314B$ = ' + ' 

317C$ = '*' 

320 RETURN 

330W = Y*K 

340Bl=ABS(W-K*Y) + 8 

350B2 = ABS(W) +8 

380 GOSUB 280 

390 IF X < = E + 7 THEN 340 ELSE 830 

400 M = ABS(Y) + ABS(X3) 

410K=l/(INT(M/65 + l)) 

430 GO TO 245 

440 PRINT LINEAR EQUATION-NOT QUADRATIC 

450 GO TO 830 

460 PRINT NO REAL ROOTS' 

470 GO TO 830 

480B1=8 

490B2 = (K*Y) + 8 

500B$==C$ 

520 GOSUB 280 

530 IF X < = E + 7 THEN 490 ELSE 830 

540W = Y*K 

550Bl=K*Y + ABS(W) + 8 

560B2 = ABS(W) + 8 

570B$ = =C$ 

590 IF Y>0 THEN 630 

600 GOSUB 280 

610 IF X<=E + 7 THEN 550 ELSE 830 

630B1 = =B2 

635B$ = =C$ 

640 GO TO 600 

670W = X3*K 

680 Bl = K*Y + ABS(W) + 8 

690B2 = ABS(W) +8 

700B$ = =C$ 

710 IF Y>0 THEN 730 

720 GOSUB 280 

725 IF X < = E + 7 THEN 680 ELSE 830 

730B1 = =B2 

733B$ = =C$ 

737 GO TO 720 

800B$ = 'X' 

810C$ = ' ' 

820 GO TO 290 

830 PRINT 'ANYMORE TO DO (YES OR NO)' 

840 INPUT AS 

850 IF A$ = 'YES' THEN 30 

900 END 



ANALYSIS 

This program computes the roots, sum and product thereof, 
axis of symmetry and turning point for any quadratic equa- 
tion. It also graphs the resulting parabola. 

The quadratic formula and the resulting formulas for pro- 
duct and sum of roots are used in lines 60 through 180. Line 50 
tests for a second degree equation. 

The rest of the program is taken up with drawing the graph. 
Line 240 scales down the graph so it will fit on a single sheet of 
TTY paper. Lines 250 and 270 determine how the parabola is 
situated with respect to the x-axis. Care is taken to note where 
the graph crosses the x-axis; when this happens the * takes 
precedence over the + in that case. 

The location of the x-axis relative to the left margin is deter- 
mined by the variables Bl and B2 to insure the printing out of 
values below the x-axis. 
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Solutions to the Cubic Equation 

Write a program to find all the roots of a cubic equation 
of the form: 

ax 3 + bx 2 + ex + d = 

where a, b, c and d are inputed. Remember all the roots 
need not be real. If only one root is real then the other 
two will be complex. 

Reduce the cubic to a quadratic and then use the 
quadratic formula to find the complex roots. Be sure to 
express them in the form: 

a+ bi 

Devise a test to determine the number of real roots. 





= ? 



INPUT COEFFICIENTS 0F AXt 3«§»BXf 2*CX*D®0 

? S,~8*4l, 17 

INPUT L0WER & UPPER LIMITS & INTERVAL WIDTH T0 INVESTIGATE 

? -10, 10# I 

X- VALUE SIGN 

-10 

-9 
-8 
-7 

-6 
-5 
-4 

-3 
• 2 
-I * 

* 

1 «. 

2 * 
3 
4t 
5 
6 
7 

8 ♦ 

9 * 

10 + 
N0 EXACT R00TS F0UND*#THE APPROXIMATE R00TS F0LL0W 
THE R00TS ARE 7*099255 # 2*0620340 AND -W 161289 1 
ANYTHING ELSE CYES 0R N0>? N0 



References: 

Kemeny and Kurtz, Basic Programming, pp. 50-53. 

Be sure to review what you've learned about cubics in an 
advanced secondary math text. It'll save programming 
time. 
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1 00 PRINT'INPUT COEFFICIENTS OF AX 1 3 + BX 1 2 + CX + D = 0' 

110 INPUT A,B,C,D 

120 PRINT INPUT LOWER & UPPER LIMITS & INTERVAL WIDTH TO INVESTIGATE' 

130LETF = F2 = K2 = K3 = 

140 INPUT L1.H1.W 

150 IF HI <L1 THEN LI = =H1 

160LETKl=A*Llt3 + B*Llt2 + C*Ll+D 

170 PRINT 'X- VALUE' ,'SIGN' 

180FORX = L1TOH1STEPW 

190LETMl=A*Xt3 + B*Xt2 + C*X + D 

200LETK3 = K3 + 1 

210 IF SGN(Ml) = THEN 280 

220 IF SGN(Ml) = 1 THEN A$ = ' + ' ELSE A$ = '-' 

230 PRINT TAB(3);X;TAB(16);A$ 

240 IF F = AND SGN(M1)> <SGN(K1) THEN 330 

250LETK2 = K2+1 

260LETK1=M1 

270 GO TO 490 

280 LET A$ = 'A ROOT' 

290LETK3 = K3 + 1 

300R3 = X 

310F = F+1 

320 GO TO 230 

330 IF F2><0 THEN 490 

340LETL = X-W 

350LETH = X 

360LETF1=0 

370LETXl=(L + H)/2 

380 LET M2 = A*X1 13 + B*X1 12 + C*X1 +D 

390 IF SGN(M2) = THEN 440 

400LETM3 = A*Lt3 + B*Lt2 + C*L + D 

410IFSGN(M2) = SGN(M3)THENL = X1ELSEH = X1 

420LETF1=F1 + 1 

430 IF Fl > 50 THEN 470 ELSE 370 

440LETR3 = X1 

450LETF = F+1 

460 GO TO 490 

470LETS1=X1 

480LETF2 = F2+1 

490 NEXT X 

500IFK2 = K3THEN600 

510 IF F = THEN 670 

520LETB1=A*R3 + B 

530LETC1=B1*R3 + C 

540 LET D1=B1 12-4* A*C1 

550 IF DK0 THEN 620 

560 LET Rl =(-Bl + SQR(D1))/(2*A) 

570 LET R2 = (-B1-SQR(D1))/(2*A) 

580 PRINT'THE ROOTS ARE ';R1;' , ';R2;' AND ;R3 

590 GO TO 700 

600 PRINT'NO ROOTS FOUND IN INTERVAL-SELECT NEW LIMITS' 

610 GO TO 120 

620 PRINT'THERE IS ONE REAL ROOT ** '; R3 

630 PRINT'IN COMPLEX FORM, THE OTHER TWO ROOTS ARE **' 

640 PRINT -B1/(2*A);' + ';SQR(ABS(D1))/(2*A);' I'; 

650 PRINT' AND ';-Bl/(2*A);'-';SQR(ABS(Dl))/(2*A);' I' 

660 GO TO 700 

670R3 = S1 

680 PRINT'NO EXACT ROOTS FOUND**THE APPROXIMATE ROOTS FOLLOW 

690 GO TO 520 

700 PRINT ANYTHING ELSE (YES OR NO)'; 

710 INPUT A$ 

720 IF AS = 'YES' THEN 100 

730 END 



ANALYSIS 

This program finds the three roots of any third-degree 
(cubic) equation. It prints roots whether they are real or com- 
plex. Complex roots are printed in rectangular form. 

The user initiates the search for the roots by specifying an 
interval to search. Starting with the lower limit the computer 
prints the signs so that the user can see the changes in sign and 
locate the approximate location of the roots. 

If a zero is found for the values actually printed this is so in- 
dicated. If no sign change was encountered the user is asked to 
select new limits. 

If an exact root is found this is used in lines 520 and 530 to 
reduce the cubic to a quadratic by synthetic division. This 
resulting quadratic is solved using the quadratic formula in 
lines 540 and 570. 

If a change is found in the sign but no exact root en- 
countered, the root is approximated by repeated halving of the 
interval in which the root is known to lie. This is done in lines 
370 through 430. This approximate root is then used in the 
synthetic division. 
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The Right Triangle and the Square 



Using the figure below find the values of X and Y. 
Write a program to solve the problem. The program 
could involve an algorithm for synthetic division (see 
problem with that name) or a simple cranking out of 
Pythagorean Triples. (See problem of same name). 

A lot if preliminary work is needed here, so be sure to 
reduce the problem to its programmable state. All the 
information necessary for the solution is given in the 
diagram, believe it or not. 
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SOLUTION TO RIGHT 


TRIANGLE AND THE SQ 


X = 25 & Y = 144 


- SIDES ARE: 


BASE = 


X = 44 & Y « 135 


- SIDES ARE: 


BASE = 


X = 30 & Y * 1 1 1 


~ SIDES ARE: 


BASE « 


X = 111 & Y = 80 


- SIDES ARE: 


3ASE = 


X a 135 & Y = 44 


- SIDE? ARE: 


BASE = 


X = 144 & Y = 25 


- SIDES ARE: 


BASE = 



35 & ALTITUDE = 204 
104 & ALTITUDE = 195 
140 & ALTITUDE = 171 
171 & ALTITUDE = 140 
195 & ALTITUDE = 104 
204 & ALTITUDE = 85 



SOLUTION TO RIGHT TRIANGLE AND THE SQUARE" 



10 PRINT 

20 PRINT 

25 Z=221*221 

30 FOR X = TO 160 

40 FOR Y=0 TO 160 

50 IF (X+60) »2+(Y+60) t2<>Z THEN 

60 print "x = ";x;"& y =";y; 

65 PRINT " - SIDES AREs BASE *";60 + X;"& ALTITUDE 

70 NEXT Y 

80 NEXT X 

9 END 



70 



60+Y 



ANALYSIS 

This problem can be solved easily by using a brute search 
procedure or by using the solution of a quartic equation using 
synthetic division. Careful use of the diagram is necessary. 

From the diagram it can be seen that 

(X + 60) 2 + ( Y + 60) 2 = 22P (1) 

The brute search procedure simply tries integer values of X 
and Y such that each side is varied over a more than adequate 
range. If A' and Fare each tried from 1 to 180, then each side 
will vary from 60 to 220, more than adequate. Any values of X 
and Y that combine to satisfy the equation present a possible 
solution. 

A more elegant solution can be obtained by noting that 

Y = 60 
60 X 



giving 



X • Y = 3600 



(2) 



If (1) and (2) are combined to yield an equation in X, the 
following quartic is obtained: 

x* + 120* 3 - 41,641je + 432,000a:- 12,960,000 = (3) 

This equation can be solved using the synthetic division pro- 
gram given elsewhere in this book. 

The reader is invited to develop a test that will stop execu- 
tion before the mirror image solutions are computed. Such a 
test will save considerable computer time. 
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Pythagorean Triples 



Every student knows the pythagorean theorem and its 
importance in working with right triangles. In fact there 
is hardly a student who isn't familiar with the numbers 
(3,4,5) or (5,12,13). Some students know others. Few 
students can give more than a couple of these 
Pythagorean Triples. Obviously a Pythagorean Triple is 
a set of numbers which satisfy the relationship: 

x 2 + y 2 = z 2 . 

Write a program to list as many triples of this sort as 
you deem feasible. A simple way would be to test all 
triples and PRINT only those which satisfy the theorem. 
This is an extremely inefficient algorithm. The com- 
puter could test as many as a million numbers before it 
encountered a Pythagorean Triple. 

The student is invited to find what are known as 
generators, that is, algebraic expressions which when 
fulfilled supply the desired triples every time. One useful 
generator could be any two natural numbers u and v 
(one greater than the other), such that the sum of their 
squares produces one element of the triple; the dif- 
ference between their squares produces a second; and 
twice their product produces the last. The natural 
numbers may differ by any number of units and it is in- 
triguing to note the relationships which pop up. 

After you've listed the triples inspect them closely. 
You'll find many interesting relationships. Did you 
know that every set of triples has at least one element 
that is divisible by 3, one that is divisible by 4 and one 
that is divisible by 5? 



References: 

Ivan Niven, Introduction to the Theory of 
Numbers, pp. 1-9. 

O. Ore, Invitation to Number Theory. 

B.M. Stewart, Theory of Numbers, pp. 153-6. 
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GEHERAT10I* OF PYTHAGOREANS TRI PLES I f f 
TRIPLES 



MOLT OF 



u and v 



3 

6 
g 

io 

12 

5 

12 

20 

24 

7 

16 

27 

9 

20 

11 



8 

15 
24 
35 
12 
16 
2! 
32 
24 
30 
36 
40 
48 
60 



5 

10 

17 

26 

37 

13 

20 

29 

40 

25 

34 

45 

41 

52 

61 



< 3* 4* 5> 



C 5* I2# 131 



C 3# 4# 5) 

C 3# 4# 51 

C 8* 15* 17> 

C 3* 4* 5> 

C 5# 12* 13) 



C 1* 2) 

C 1* 3) 

C 1* 4) 

C 1* 5J 

C 1* 6) 

C 2* 3> 

C 2* 4) 

C 2* 5) 

C 2* 6) 

C 3* 4) 

C 3* 5> 

C 3* 6) 

C 4* 5) 

C 4* 6) 

C 5# 6) 



1 PRINT 'GENERATION OF PYTHAGOREAN TRIPLES ! ! ! ' 

20 PRINT 

30 PRINT 'TRIPLES',' ',' ','MULT OF'.'U AND V 

50 PRINT 

60FORU = lTO10 

70FORV = U + lTO6 

80LETA = 2*U*V 

90LETB = U!2 + Vt2 

100LETC = VI2-Ut2 

110FORN = 10TO2STEP-l 

120 IF A/N < > INT(A/N) THEN 240 

1 30 IF B/N < > INT(B/N) THEN 240 

140 IF C/N < > INT(C/N) THEN 240 

150LETF = A/N 

160LETG = B/N 

170LETH = C/N 

180LETK = MAX(A,C) 

190LETJ = MIN(C,A) 

200LETS = MAX(F,H) 

210LETT = MIN(H,F) 

220 PRINT J,K,B,'(';T;7;S;7;G;')','(';U;',';V;')' 

230 GO TO 270 

240 NEXT N 

250LETK = MAX(A,C) 

260LETJ = MIN(C,A) 

265 PRINT J,K,B,' ','(';U;',';V;')' 

270 NEXT V 

280 NEXT U 

300 END 



ANALYSIS 

The famous triple 2uv, u 2 - v 2 and u 2 + v 2 is used to 
generate the Pythagorean numbers. This triplet will work 
whenever u> v. 

The program generates the triples in lines 80 through 100. 
The AHoop beginning in 1 10 tests for the triple being a multi- 
ple of one already printed. If it is original it prints out the tri- 
ple along with the values of u and v. If it is a multiple it prints 
out the triple it is a multiple of. 

Notice that every set of Pythagorean triples has elements 
which are divisible by 3, 4, and 5. For example 9, 40, 41 has 9 
which is divisible by 3 and 40 which is divisible by 4 and 5. 

Notice the use of the MAX and MIN functions. They return 
the larger or smaller of the arguments. Although the functions 
are not available in all forms of BASIC, routines can be writ- 
ten to simulate them. 

Notice that the product of all three numbers is always a 
multiple of 60. 
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Area of a Triangle by a Coordinate Geometry 
Method 



Write a program to compute the area of a triangle. 
Assume that the polygon has a known but variable 
number of sides. 

As input you will need the number of sides of the 
polygon along with the coordinates of its vertices. It will 
not necessarily be a regular polygon, nor will it be con- 
vex. Using only the coordinates of each vertex and the 
number of sides you must compute the area. 

This will require an algorithm which is already in ex- 
istence. The development of the algorithm for the area 
is not unusually difficult and can be done by you. 
However, you can probably find it in all but the most 
elementary texts on plane or coordinate geometry. 

Why not test your skill at programming graphics out- 
put? The student can extend the scope of the problem by 
computing the area of a polygon using more than three 
sides. 

References: 

Edwin Moise, Geometry, pp. 371-406. 

W.A. Wilson, Analytical Geometry, pp. 8-27. 

Hulian Mancill, Modern Analytical Trigonometry, 

pp. 27-56. 



mjS PROGRAM i-?ILL ACCEPT THE COORDINATES OF THE VERTICES 
OF A TRIANGLE. IT VI LL THEN COMPUTE THE AREA AND 
-HE TYPE OF TRIANGLE IN QUESTION!!! 

INPUT THE COORDINATES OF THE VERTICES 
? e,0, 3* 0,0, 3 
THE AREA IS 4.5 

IT* S A RIGHT TRIANGLE 

^E TRIANGLE IS ISOSCELES!! 

ANGLES IN DEGREES APE 45 45 90 

READY 

RTTNH 

THIS mOGRAM VI LL ACCEPT THE COORDINATES OF THE VERTICES 

OF A TRIANGLE. IT VI LL THEN COMPUTE THE AREA AND 

mE TYPE OF TRIANGLE IN QUESTION!!! 

INPTTT THE COORDINATES OF THE VERTICES 
? 0, 1,4,5,-4, 6 
niE AREA IS 18 

THE TRIANGLE IS SCALENE! 

/WGLES IN DEGREES ARE 44.2152 52.125 83.6598 
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10 PRINT 'THIS PROGRAM WILL ACCEPT THE COORDINATES OF THE VERTICES' 

20 PRINT OF A TRIANGLE. IT WILL THEN COMPUTE THE AREA AND' 

30 PRINT THE TYPE OF TRIANGLE IN QUESTION!!!' 

35 PRINT 

40 PRINT 'INPUT THE COORDINATES OF THE VERTICES' 

45 INPUT XI, Y1,X2,Y2,X3,Y3 

50LETS1 = SQR((Y2-Yl)t2 + (X2-Xl)t2) 

55LETS2=SQR((Y3-Yl)t2 + (X3-Xl)t2) 

57 LET S3 = SQR((Y3-Y2) 1 2 + (X3-X2) 1 2) 

60LETS = (Sl + S2 + S3)/2 

65LETT = SQR(S*(S-S1)*(S-S2)*(S-S3)) 

70 PRINT THE AREA IS ;T 

75 PRINT 

77 IF SI 12 + S2t2 = S312 THEN PRINT 'ITS A RIGHT TRIANGLE!' 

78 IF S2!2 + S3t2 = Sl !2THEN PRINT 'ITR A RIGHT TRIANGLE!' 

79 IF SI 12 + S3t2 = S2t2THEN PRINT 'ITS A RIGHT TRIANGLE!' 
80LETP = 

81 IF SI <>S2 THEN 85 

82LETP = P + 1 Y 

85 IF S2<> S3 THEN 105 

90LETP = P + 1 

105 ON P + 1 GO TO 200,210,220 

150 GO TO 300 

200 PRINT THE TRIANGLE IS SCALENE!' 

205 GO TO 300 

2 1 PRINT 'THE TRIANGLE IS ISOSCELES ! ! ' 

215 GO TO 300 

220 PRINT 'THE TRIANGLE IS EQUILATERAL! ! !' 

300 LET R = SQR((S-S1)*(S-S2)*(S-S3))/SQR(S) 

310LETA1=(ATN(R/(S-S1))*2)*57.295779 

320 LET A2 = (ATN(R/(S-S2))*2)*57.295779 

330 LET A3 = (ATN(R/(S-S3))*2)*57.295779 

340 PRINT 'ANGLES IN DEGREES ARE ;A1 ;A2;A3 

400 END 




ANALYSIS 

The program is an example of a lot of tedious yet simple 
calculation done quickly. The coordinates of the vertices of a 
triangle are converted into the lengths of the sides in lines 50 
through 57. 

Line 60 computes the semi-perimeter. The area is computed 
by Hero's formula which is given below. 



A = V S'(s-a) • (s-b) • (s-c) 

where s is the semi-perimeter and a, b, and c are the sides of 
the triangle. 

The lengths of the sides are then compared to one another to 
establish the type of triangle. Lines 77 through 79 check the 
sides against the Pythagorean Theorem. 

The angles are computed using the formula given below. 

tan0 = V (s-b) '(s-c) /_ 

2 S'(s-a) (s-a) 

where 
r = yf (s-a) • (s-b) • (s-c) 



The formula can be found on page 509 of the 
Chemical — Rubber Company's Standard Mathematical 
Tables. 



53 



HI 



Archfmediari— Geometric Determination of 



7T 



The determination of tt has fascinated mathematicians 
since time began. 

One of the more interesting ways to generate it is that 
used by Archimedes. Although he did it arithmetically, 
as well as by other methods, this is by far his most 
famous. 

Essentially what he did was compute the perimeters of 
regular polygons that were inscribed in and circumscrib- 
ed about a circle. For ease of computation let your circle 
have a radius of one— a unit circle. The circumference 
will now be 2w. 

Start with a square which you circumscribe about the 
circle. The diagonal of the inner square will equal the 
side of the outer square; and both will always be one, 
while the apothem of the outer polygon will always be 
one. 

You must develop an expression for the perimeter of 
each polygon which involves the apothem and the radius 
and the number of sides. 

Write a program to compute the perimeters of these 
polygons as their sides are successively doubled in 
number. It is plain that the outer perimeter will always 
exceed the circumference of the circle while the inscrib- 
ed perimeter will always fall a bit short. The ratio of the 
circumference to the diameter will always contain some 
form of ir. Compute the ratio of the perimeter to the 
diameter for each polygon and PRINT it. You will find 
that this ratio will approach ir from the left and the 
right. 

Try to avoid an algorithm which contains -w. Some 
trigonometric expression would be desirable. 

References: 

A.R. Amir-Moez, More Chips from the Math- 
ematical Log, p. 75 
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ARCHIMEDEAN DETERMINATION OF PI I 



NO* OF SIDES IN SCR PER 



CIRCUM PER 



4 

8 

16 

32 

64 

128 

256 

512 

1024 

2048 

409 6 

8192 

16384 

32768 



2*8284272 


4*0000001 


3*0614675 


3*3137086 


3. 1214452 


3* 18 259 79 


3*1365485 


3*1517249 


3* 1403312 


3* 1441184 


3* 1412773 


3* 1422237 


3* 1415138 


3* 14 17504 


3* 14 J 5729 


3. 1416321 


3*J4!5877 


3* J4159 27 


3. 14159 14 


3. 14J59 27 


3* 1415923 


3* 14159 27 


3*1415925 


3* 1415927 


3* 1415925 


3* 14159 27 


3* 1415927 


3*14159 27 



50 PRINT ARCHIMEDEAN DETERMINATION OF PI!' 

60 PRINT 

70 PRINT 'NO. OF SIDES'/INSCR PER'/CIRCUM PER' 

80 PRINT 

100 FOR X = 2 TO 15 

105LETN = 2tX 

110LETD = 360/N 

120LETT = 3.1415927*(D/180) 

130LETA = 2*N*SIN(T/2) 

140 LET B = 2*N*TAN(T/2) 

150 PRINT N,A/2,B/2 

155 IF A = B THEN 170 

160 NEXT X 

170 END 



ANALYSIS 

The limit on the perimeter here is 2 15 sides. 

Line 1 10 computes the central angle subtended by a side of 
the polygon. Line 120 converts the angle to radians. It bothers 
some people to see a decimal approximation to x appearing in 
a program to generate tt. Perhaps it would be better to convert 
to radians by one of the many methods available so that 
students wouldn't be alarmed at the technique. An isosceles 
triangle is formed by the radii. The altitude to the triangle thus 
formed has hypotenuse 1 and a leg equal to half the side of the 
edge of the original polygon. In that triangle the following is 
true: 

sin 9 = 5/2 
where s is the side of the inscribed polygon and is half the 
central angle D. 

These facts are used to compute the length of a side in line 130. 
A similar technique is used for the circumscribed polygon. 
This step is done in line 140. The perimeters are computed in 
the same lines by multiplying the side by n: the number of 
sides in the polygon. 

Line 155 terminates the program when the perimeters have 
converged within the accuracy of the machine. 

Line 150 assumes a diameter of 2 for both polygons. Actually, 
the outer polygon has a diameter greater than 2. 
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Computerized Triangular Analysis 



Write a computer program to accept the coordinates of 
the vertices of a triangle as input. 

Have the program compute the coordinates of the in- 
tersection points of the medians, the perpendicular 
bisectors of the sides, the angle bisectors and the 
altitudes. 

You may also want to type out the equations of some of 
these lines. 

When you run the program, avoid involving lines which 
are vertical. These will have no slope. They will cause an 
error message because of the division by zero in your 
slope formula. You may wish to bypass this technique in 
favor of one which does not have this bug. 




B 
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INPUT THE COORDINATES OF THE VERTICES OF A TRIANGLE 
? 0*0* 5* 7*- 2* 4 

MEDIANS MEET AT 2.8 333333 3.4629 629 THE CENTROID! 

PERP BISECTORS OF THE SIDES MEET ATt 

2.294 1176 3.6470589 THE CI RCUM CENTER ! 

ALTITUDES MEET AT -1.5882353 3.7058824 THE ORTHOCENTER! 

10 PRINT INPUT THE COORDINATES OF THE VERTICES OF A TRIANGLE' 

20 INPUT A,B,C,D,E,F 

30LETMl=(A + C)/2 

40LETM2 = (B + D)/2 

50LETM3 = (E + C)/2 

60LETM4 = (F + D)/2 

70 LET Bl = F-((M2-F)/(M1-E))*E 

80 LET B2 = B-((M4-B)/(M 1 -E)) * A 

90 LET X = (B1-B2)/((M4-B-M2 + F)/(M1-E)) 

100 LET Y = ((M4-B)/(M1-E))*X + B2 

110 PRINT 

120 PRINT MEDIANS MEET AT ;X,Y;' THE CENTROID!' 

1 25 IF D-B = OR D-F = THEN 400 

130LETS1=(A-C)/(D-B) 

140LETS2 = (E-C)/(D-F) 

150LETK1=M2-S1*M1 

160LETK2 = M4-S2*M3 

1 70 LET X = (K 1 -K2)/(S2-S 1 ) 

180LETY = S1*X + K1 

190 PRINT 'PERP BISECTORS OF THE SIDES MEET AT:' 

200 PRINT X,Y;' THE CIRCUMCENTER!' 

210LETK1=F-S1*E 

220LETK2 = B-S2*A 

230 LET X = (K 1 -K2)/(S2-S 1 ) 

240LETY = S1*X + K1 

250 PRINT ALTITUDES MEET AT ;X,Y;' THE ORTHOCENTER!' 

390 GO TO 500 

400 PRINT 

410 PRINT ONE OF YOUR LINES HAS NO SLOPE!' 

420 PRINT MY ALGORITHM INVOLVES SLOPE AVOID VERTICAL LINES' 

430 GO TO 10 

500 END 

ANALYSIS 

Another approach to this problem would be feasible and in- 
teresting. The author chose to proceed by using slopes. This 
presents some problems if any vertical lines are encountered. 

Lines 30 through 60 compute midpoints of the sides. Lines 
70 and 80 solve a 2 x 2 system of equations for the slopes of 
the medians. Another set of equations is solved in lines 90 and 
100. These result in the coordinates of the centroid. 

Lines 130 and 140 compute the slope of the perpendicular 
bisector by simply taking the negative reciprocal of the given 
side. This slope is then used along with the midpoints 
previously computed to establish the equation of the perpen- 
dicular bisectors. This set of 2 x 2 is solved and printed out as 
the circumcenter. The same procedure is carried out for the 
altitudes, except that the coordinates of the vertex through 
which the altitude will pass is used and we know that it is 
parallel to the perpendicular bisector of the side so the slopes 
do not have to be recomputed. 

Notice that only two medians, altitudes, etc. are needed to 
compute an intersection. A modification of this program 
could be used in a geometry course to provide empirical 
verification for that theorem. 

57 
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Analysis of Triangular Coordinates 

Prepare a program that will read in three sets of coor- 
dinates. Determine whether those coordinates are the 
vertices of a triangle. 

If they are the sides of a triangle, type out what kind: 

Scalene, Isosceles, Equilateral. 

Also check to see whether it is a right triangle. Have the 
computer draw a picture of the triangle using the TAB 
(X) function and finally compute and print the area of 
the triangle. 

Be sure to use a general area formula and not one which 
only works for specific triangles. 

References: 

Kemeny and Kurtz, Basic Programming, pp. 47-50. 
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nil? PPOGRAM "ILL ACCEPT THE COORDINATES OF THE VERTICES 
OF A TRIANGLE. IT WILL THEN COMPUTE THE AREA AND 
THE ^YRE OF TRIANGLE IN QUESTION!!! 

INPttt ^HE COORDINATES OF THE VERTICES 
? 0*0, 3.. 0,0, 3 
THE APEA IS 4.5 

IT' s A RIGHT TRIANGLE 

THE TRIANGLE IS ISOSCELES!! 

ANGLE? IN DEGREES ARE 45 45 90 

^EADv 

RT.TNH 

THIS PROGRAM WILL ACCEPT THE COORDINATES OF THE VERTICES 

OF A TRIANGLE. IT VlLL THEN COMPUTE THE APEA AND 

THE TvpE OF TRIANGLE IN QUESTION!!! 

INPTTT THE COORDINATES OF THE VERTICES 
? 0, 1,4, 5, «4, 6 
THE AREA IS 18 

THE TRI ANGLE IS SCALENE! 

ANGLES IN DEGREES APE 44.2152 52.125 83.6598 



10 PRINT THIS PROGRAM WILL ACCEPT THE COORDINATES OF THE VERTICES 

20 PRINT 'OF A TRIANGLE. IT WILL THEN COMPUTE THE AREA AND' 

30 PRINT 'THE TYPE OF TRIANGLE IN QUESTION ! ! ! ' 

35 PRINT 

40 PRINT 'INPUT THE COORDINATES OF THE VERTICES' 

45 INPUTX1,Y1,X2,Y2,X3,Y3 

50LETS1=SQR((Y2-Yl)t2 + (X2-Xl)t2) 

55LETS2 = SQR((Y3-Yl)t2 + (X3-Xl)!2) 

57 LET S3 = SQR((Y3-Y2) 1 2 + (X3-X2) 1 2) 

60LETS = (Sl+S2 + S3)/2 

65LETT = SQR(S*(S-S1)*(S-S2)*(S-S3)) 

70 PRINT 'THE AREA IS ';T 

75 PRINT 

77 IF SI t2 + S2t2 = S3!2 THEN PRINT 'ITS A RIGHT TRIANGLE!' 

78 IF S2t2 + S3t2 = Sl 12 THEN PRINT 'ITR A RIGHT TRIANGLE!' 

79 IF SI t2 + S3t2 = S2!2 THEN PRINT 'ITS A RIGHT TRIANGLE!' 
80LETP = 
81 IF SI <>S2 THEN 85 
82LETP = P + 1 
85 IF S2<> S3 THEN 105 
90LETP = P + 1 

105 ON P + 1 GO TO 200,210,220 
150 GO TO 300 

200 PRINT 'THE TRIANGLE IS SCALENE!' 
205 GO TO 300 

2 1 PRINT 'THE TRIANGLE IS ISOSCELES ! ! ' 
215 GO TO 300 

220 PRINT 'THE TRIANGLE IS EQUILATERAL! ! !' 
300 LET R = SQR((S-S1)*(S-S2)*(S-S3))/SQR(S) 
310LETA1=(ATN(R/(S-S1))*2)*57.295779 
320 LET A2 = (ATN(R/(S-S2))*2)*57.295779 
330 LET A3 = (ATN(R/(S-S3))*2)*57.295779 
340 PRINT 'ANGLES IN DEGREES ARE ';A1 ;A2; A3 
400 END 



ANALYSIS 

The coordinates are used to find the lengths of the sides of 
the triangles in lines 50 through 57. The semi-perimeter for 
Hero's formula is computed in line 60. The area is computed 
in line 65. 

Lines 77 through 79 test for a right triangle. These lines 
should be modified slightly. Truncation errors can cause right 
triangles to bypass this print-out as happened in the second 
run of the output. Notice the truncation in the area computa- 
tion. 

The test for the type of triangle is done by assigning points 
based on the number of sides which are equal. These points 
are stored in the variable P. 

The angles are computed in lines 300 through 330. The for- 
mula is discussed in the ANALYSIS for the problem in this 
edition titled Area of A Triangle by Coordinate Geometry 
Method. 
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Length of the Arc of a Curve 



Write a program to compute the length of an arc for a 
given function. 

Input the function in question and the limits (points) 
between which the length is to be computed. The input 
should be two numbers which will be x-values. Compute 
the ^-values for those points. Have the computer divide 
the curve into a number of sections. Each section will be 
curved. Approximate that curve with a secant between 
the endpoints of the segment. The length of the secant 
can be found using coordinate geometry. It will be close 
to the arc length. Increase the number of intervals and 
sum them up until the answer is accurate to a specified 
degree. 

Try to find a formula for arc length which can be used 
directly. Compare your approximation with the value as 
computed by formula. 

References: 

Donald Greenspan, Introduction to Calculus, pp. 

206-209. 

Ewind Moise, Geometry, pp. 371-406. 
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INTERVALS 


APPROX ARC 


10 


50.611573 


20 


50» 674234 


30 


50*692439 


40 


50.698617 


50 


50.701355 


60 


50.702845 


70 


50.703736 


80 


50.704292 


90 


50.704713 


!00 


50.704980 



LE*3 



5 PRINT INTERVALS', APPROX ARC LEN' 

10DEFFNA(X) = Xt3-7*X + 3 

20READL.R 

30 LET N= 10 

40LETI = (R-L)/N 

50LETT = 

60 LET XI =L 

70LETX2 = X1+I 

80LETY1=FNA(X1) 

90LETY2 = FNA(X2) 

1 00 LET D = SQR((X 1 -X2) 1 2 + ( Y 1 - Y2) 1 2) 

110LETT = T + D 

120LETX1=X2 

130LETX2 = X2 + I 

140IFX2<=RTHEN80 

150 PRINT N,T 

160LETN = N+10 

170IFN<= 100 THEN 40 

180 DATA 0,4 

200 END 



ANALYSIS 

Notice that even with only 10 intervals the computation of 
the length is fairly accurate. The procedure is to draw as many 
secants as there are intervals and then to compute and sum up 
these secant lengths. 

Line 40 computes the size of each of the n intervals. Lines 
80 and 90 establish the y values for the endpoint of each sub- 
interval and line 100 is the workhorse. It computes the length 
of each sub-interval (secant) by the coordinate geometry for- 
mula. The totals are incremented in line 1 10. 

Line 150 prints the result including the partial sum. A fur- 
ther exercise would be to develop a formula for actual arc 
length and then to compare it with the approximations given 
by this program. 
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Sine and Cosine Tables by Computer 

Ever wonder where sine and cosine tables come from? 
They are generated by tedious calculation using infinite 
series. 

Use the series given below to generate a table for the 
sines and cosines of all angles between 0° and 90°. 

Careful though, the variable x in both series must be in 
radians or the numbers will be meaningless. You'll have 
to have a subroutine to convert from degrees to radians 
and back. NO radians allowed in the output. 

You choose the final form of the table. Try to get four 
places of accuracy. To avoid roundoff error, you may 
have to devise a way of retaining all the significant digits 
of the partial sums in an array. You may use the SIN 
and COS built-in functions to check accuracy only. 

The series to be used: 

sin x = x - x 3 + x s - x 1 + . . . 
3! 5! 7! 

COS X = 1 - X 2 + X 4 - X 6 + . . . 

2! 4! 6! 



References: 

Other series representations may be used... They may be 
found in such books as: 

CRC, Standard Mathematical Tables, p. 408. 

Heinrich Dorrie, 100 Great Problems in Elementary 
Mathematics, pp. 59-64. 
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DEGREES 



SINE 



COSINE DEGREES 









1 


90 


1 


.017452 


.999848 


89 


2 


.0349 


•999391 


88 


3 


•052336 


.99863 


87 


4 


.069756 


.997564 


86 


5 


.087156 


.996195 


85 


6 


.104529 


.994522 


84 


7 


.121869 


.992546 


83 


8 


.139173 


.99 0268 


82 


9 


.156435 


.987688 


81 


10 


.173648 


•984808 


80 


11 


• 190809 


.981627 


79 


12 


.207912 


.978148 


78 


13 


.224951 


.97437 


77 


14 


•241922 


.970296 


76 


15 


.258819 


.965926 


75 


16 


.275638 


.961262 


74 


17 


.292372 


•956305 


73 


18 


.309017 


.951057 


72 


19 


.325568 


.945519 


71 


20 


.34202 


.939693 


70 


21 


.358368 


.93358 


69 


22 


.374607 


.927184 


68 


23 


.390731 


•920505 


67 


24 


♦406737 


•913545 


66 


25 


•422619 


•906308 


65 


26 


.438371 


•898794 


64 


27 


.453991 


•891007 


63 


28 


.469472 


•882948 


62 


29 


•48481 


.87462 


61 


30 


« 5 


.866025 


60 


31 


.515038 


•857167 


59 


32 


.52992 


.848048 


58 


33 


.544639 


•83867 


57 


34 


.559193 


.829037 


56 


35 


.573577 


.819152 


55 


36 


.587786 


.809017 


54 


37 


•601816 


.798635 


53 


38 


.615662 


.788011 


52 


39 


.629321 


.777146 


51 


40 


♦642788 


.766044 


50 


41 


♦656059 


.754709 


49 


42 


•669131 


.743145 


48 


43 


.681999 


.731353 


47 


44 


•694659 


.71934 


46 


45 


.7 07107 


•707106 


45 



10 PRINT 'DEGREES', 'SINE', 'COSINE' 

20 PRINT 

22 FOR X = TO 45 

25LETY = X/57.295779 

40S = Y-(Y|3)/6+(Yt5)/120-(Yf7)/5040+(Y|9)/362880r(Y(ll)/39916800 

50C = 1 - ( Y |2) /2 + (Y 1 4) /24- (Y ( 6) /720 + ( Y J 8) /40320- (Y f 10) /3628800 

60 PRINT X,S,C,90-X 

100 NEXTX 

110 PRINT 'DEGREES', 'SINE', 'COSINE', 'DEGREES' 

200 END 



ANALYSIS 

It is surprising to see that only five terms were needed for 
the series given to produce a value for the trig functions which 
was accurate to five places. The fact that the factorials had 
been input and not computed was a time-saver. 

A bit more of a challenge could be provided by computing 
each term separately and then alternating its sign and keeping 
track of the partial sum. 

Notice the use of the trig notion that the co-function of the 
complement is equal to the original angle's function. 



DEGREES SINE COSINE DEGREES 
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Law of Sines— Ambiguous Case 



Write a program which accepts as input two sides of a 
triangle and the angle opposite one of these sides. 

The program should work for any type triangle oblique 
or right. Have the program type out the size of the third 
side along with how many triangles it is possible to con- 
struct with those dimensions. If the triangle is a right 
triangle, have the program say so. 

Refer to the diagram below. Input A, B and it. The 
diagram should help you set the problem up. Use the 
right triangle which was constructed around the 
original. Involve a relationship with the X and Y as well 
as B and H. 

Reference: 

Julian Mancill, Modern Analytical Trigonometry, 

pp. 167-185. 
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INPUT THE TWO SIDES AND ANGLE IN DEGREES 

? 6, 6, 60 

ONLY ONE TRIANGLE IS POSSIBLE 

DIMENSIONS 6 6 6 

ANY MORE TO BE DONE (YES OR NO)? YES 

INPUT THE TUO SIDES AND ANGLE IN DEGREES 
? 1/3^34 

ONLY ONE TRIANGLE IS POSSIBLE 
DIMENSIONS 1 3 3.77646 

ANY MORE TO BE DOME (YES OR NO)? YES 



60 DEGREES 



34 DEGREES 



INPUT THE TWO SIDES AND ANGLE IN DEGREES 
? 1,23,67 

ONLY ONE TRIANGLE IS POSSIBLE 
DIMENSIONS 1 23 23.3723 

ANY MOPE TO BE DONE (YES OR NO)? YES. 

INPUT THE TUO SIDES AND ANGLE IN DEGREES 
? 9, 10, 135 

ONLY ONE TRIANGLE IS POSSIBLE 
DIMENSIONS 9 10 1.349 66 

ANY MOPE TO BE DONE (YES OR NO)? NO 



67 DEGREES 



135 DEGREES 



10DIMA$(10) 

20 PRINT 

25 PRINT INPUT THE TWO SIDES AND THE ANGLE IN DEGREES' 

30 INPUT A,B,T 

40LETR = T/57.295779 

50LETH = A*SIN(R) 

60LETY = A*COS(R) 

70 IF H-B>. 01 THEN 90 

80IFB-H>.01 THEN 110 

85 PRINT 'THE ONLY TRIANGLE POSSIBLE IS A RIGHT TRIANGLE' 

87 PRINT 'DIMENSIONS jA.B.Y.T;' DEGREES' 

88 GO TO 150 

90 PRINT 'NO TRIANGLE POSSIBLE!!' 

100 GO TO 150 

110LETX = SQR(B?2-H!2) 

120 IF X<Y THEN 140 

126 PRINT ONLY ONE TRIANGLE IS POSSIBLE' 

127 PRINT 'DIMENSIONS ;A,B,Y + X,T;' DEGREES' 
130 GO TO 150 

140 PRINT 'TWO TRIANGLES ARE POSSIBLE' 
145 PRINT 'THEIR DIMENSIONS ARE -' 

147 PRINT A,B,Y + X,T;' DEGREES' 

148 PRINT A,B,Y-X,T;' DEGREES' 

149 PRINT 

150 PRINT 'ANY MORE TO BE DONE (YES OR NO)' 
160 INPUT A$ 

170 IF A$ = 'YES' THEN 20 
200 END 



ANALYSIS 

Given two sides of a triangle and an angle opposite one of 
them this program will tell how many triangles can be formed. 
It will also compute the remaining side. 

Using the diagram in the student problem section, the 
following facts will prove useful. 

Form a right triangle with the angle 6 and side a. The sides h 
and y can be calculated from: 

h = a*sinQ 
y = a°cos9 

If b < h no solution exists. 

If b=h only one solution exists, namely, the right triangle. 
The third side is y. 

If b > h the length of x is computed from 



x = v / b 1 ^h 1 
Within this framework two possibilities exist: 

1) If x< y then two solutions exist (y + x) and {y - x) 

2) If x> y then only one solution exists: (y + x) 

Line 40 converts from degrees to radians. Lines 50 and 60 
compute h and y. The comparisons in lines 70 and 80 were 
specified because of truncation errors which are possible with 
trig functions. 

The remainder of the program is fairly easy to follow if the 
diagram is used. 
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Resolving a System of Vectors 



Physics students will remember the tedious calculations 
involved in working out the resultant of a given set of 
vectors. 

Assume that all vectors, up to a total of ten, originate at 
the origin of a cartesian coordinate system. Using as in- 
put the magnitude and direction of each vector, write a 
program to compute and plot the magnitude and direc- 
tion of the resultant. 

You may wish to print out the intermediate components 
of each vector in tabular form, much as we did in the 
solution of such problems with paper and pencil. 

An actual picture of the situation from the computer 
would be quite impressive also. 

A typical system might look like this! 




A typical system might look like this! 



References: 

Kemeny and Kurtz, Basic Programming, pp. 120-124. 
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THIS PROGR#l WILL RESOLVE A SVSTSM OF VECTORS! f 

HOW MAMY VECTORS TO BE RESOLVED 

1 5 

im X-COMP Y-COMP 

9®0630778 4® 2261826 

-1*9 101299 10* 8 38885 

-J"g*020® IS - 12*020815 

1*0418889 -5*9088465 

14*849242 -14*849243 

RESULTANT IS 20*868755 AT -58*114831 DEGREES 



AON I TUDE 


$$$$SL 


JO 


25 


11 


100 


17 


225 


6 


280 


21 


315 



PLOT HAS BEEN OMITTED, 

10 LET R = 57.295779 

20LETX1=Y1=0 

30 PRINT 'THIS PROGRAM WILL RESOLVE A SYSTEM OF VECTORS ' » ' 

40 PRINT 

45 PRINT 'HOW MANY VECTORS TO BE RESOLVED' 

50 INPUT N 

55 PRINT 'MAGNITUDE', 'ANGLE (D)','X-COMP','Y-COMP' 

60 PRINT 

70FORW=1TON 

80 READ M,A 

85LETX = M*COS(A/R) 

90LETY = M*SIN(A/R) 

95 PRINT M,A,X,Y 

100LETX1=X1+X 

110LETY1=Y1+Y 

120 NEXT W 

130LETR1=SQR(X112 + Ylf2) 

140 LET Al = ATN(Y1/X1)*R 

141IFX1<0THENA1=A1 + 180 

145 PRINT 

150 PRINT 'RESULTANT IS ';R1;' AT ';A1 ;' DEGREES' 

160 PRINT 

190 DATA 10,25,11,100,17,225,6,280,21,315 
200 END 



ANALYSIS 



The program resolves the system by computing components 
and then summing them up. X components are computed in 
line 85. The R is to convert degrees to radians. The Y com- 
ponents are done in line 90. 

Lines 100 and 110 sum the components. Then the right 
triangle for the components is solved for its hypotenuse in line 
1 30 and the angle in line 140. 

The negative angle in the output of course means that the 
angle should be turned clockwise from the x-axis. 

One addition which is left to the reader is to print out the 
sum of both X and Y components before printing the solu- 
tion. 
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Analysis of Projectile Motion 



Projectile motion is one of the more interesting bran- 
ches of physics. The tedious nature of the calculations, 
however, sometimes leaves students unconvinced of the 
foregoing assertion. 

Given as input the muzzle velocity, angle of firing and 
other variables, program the computer to print out the 
range of the projectile along with the height to which it 
will rise, then have the computer print out a picture of 
the path (which we know will be a parabola). 

Label both the vertical and horizontal axes with the pro- 
per units and dress the program up to be able to include 
two or more projectiles on one run. 

Missile and missile intersection graphs are a possibility 
here. 

Be sure the formulas used are correct for the units you 
introduce. You may wish to include air resistance in 
your study. You will then need to know more about the 
air such as temperature, density, etc. 

References: 

Isaac Asimov, Understanding Physics: Motion, 
Sound and Heat. 
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INPUT MUZZLE VEL0C1TY (FT/SEC) AND ANGLE 


(DEGREES) 




7 280*30 














MAXIMUM HEIGHT 


IS i 


172* 15995 


FEET 








RANGE IS 1193. 


0366 


FEET 










T0TAL TIME AIRB0RNE 


IS 6« 7599996 SEC0NDS 








SCALE 0F HEIGHT 


IS 1 


I SPACE » 


3 FEET 








+ + + + +++4-4-++* + *& + + + &<b+*+ + <$ + + & + + + * + + + + + + + + ^ + 4-*4r&4-*+4>&4*4' + -¥4- + + + * + 


* 














36.373068* 


* 












72.746136* 




* 










109. 1192 * 






* 








145.49227* 






* 








161.86534* 






* 








218*23841* 








* 






254.61147* 










* 




290*98454* 












* 


327.35761* 












* 


363.73068* 












4: 


400. 10375* 












* 


436.4768 1* 












* 


472.84988* 












4c 


509.22295* 












* 


545.59602* 












4c 


581.96909* 












4c 


618. 34216* 












4x 


654.71523* 












4c 


691.08829* 












4c 


727.46136+ 












4= 


763.83442+ 












* 


800.20750+ 












* 


836.58057* 












* 


872.95363* 












4c 


909.32670+ 












* 


945.69976+ 










* 




982.07283+ 








4c 






1018.4459+ 






* 








1054.8190+ 






* 








1091. 192 + 




* 










1 127.5651* 




4c 










1163.9382* 


* 












ANYM0RE (YES 0R 


N0)? 


N0 
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10DIMX(126),K(2) 

20DEFFNA(X,Y,Z) = X*SIN(A*.01745329)*Z-l&*Zt2 

30 PRINT 'INPUT MUZZLE VELOCITY (FT/SEC) AND ANGLE (DEGREES)' 

40F2 = 

50 INPUT M,A 

60X(0) = 

70 FOR T = .2 TO 25 STEP .2 

80LETL = INT(5*T+.001) 

90X(L) = FNA(M,A,T) 

100IFX(L)<0THEN150 

1 1 IF X(L)-X(L- 1 ) < = AND F2 = THEN 250 ELSE 350 

120K(l) = X(L-2) 

130W4 = T-.4 + J 

140 GO TO 280 

150LETW = L-1 

160 FOR J = .01 TO .2 STEP .01 

170 K(l) = FNA(M, A.T-.2 + J) 

180IFK(1)<0THEN200 

190 NEXT J 

200 PRINT 'MAXIMUM HEIGHT IS '; K; ' FEET' 

210LETY = M*COS(A*.01745329)*(T-.2 + J-.01) 

220 PRINT 'RANGE IS ';Y;' FEET' 

230 PRINT 'TOTAL TIME AIRBORNE IS ';T + J-.01 ;' SECONDS' 

240 GO TO 360 

250 IF X(L-l)-X(L-2) < X(L)-X(L-1)THEN 120 

260K(1) = X(L-1) 

270W4 = T-.2 + J 

280F2=1 

290 FOR J = .01 TO .2 STEP .01 

300K(2) = FNA(M,A,W4) 

3 1 IF K( 1 )-K(2) <= THEN 340 

320K(1) = K(2) 

330 NEXT J 

340K = MAX(K(1),K(2)) 

350 NEXT T 

360 IF K + 10 > 60 THEN 470 ELSE Ml = 1 

370 FOR D=l TO 62 

380 PRINT TAB(10);' + '; 

390 NEXT D 

400 PRINT '0';TAB(10);' + ' 

410FORN=1TOW 

420PRINT.2*N*M*COS(A*.01745329);TAB(10);' + ';TAB(X(N)*M1 + 10);* 

430 NEXT N 

440 PRINT 'ANYMORE (YES OR NO)'; 

450 INPUT A$ 

460 IF A$ = 'YES' THEN 30 ELSE 500 

470Ml = l/(INT(K/60+l)) 

480 PRINT 'SCALE OF HEIGHT IS 1 SPACE = ';1/M1;' FEET' 

490 GO TO 370 

500 END 

ANALYSIS 



This program computes the maximum height, range and 
time in flight of a projectile. Input includes the muzzle velocity 
and angle of firing. The flight of the projectile is graphed. 

A vector analysis is used to calculate the height of the pro- 
jectile at a given time (line 20), X is the muzzle velocity, A is 
the angle and Z is the time. The constant .01745329 changes 
degrees to radians. 

The height of the projectile is calculated for each interval of 
0.2 seconds in lines 70 throught 90. It is then stored in the 
subscripted variable X for later use in the graph. 

When a change of direction is noted in the path, the time of 
the maximum height is calculated to the nearest 0.01 seconds 
(lines 250 through 330). The time of impact is calculated to the 
nearest hundredth also. It notes in lines 120 through 180 when 
the projectile's height is closest to zero. 

Lines 360 through 430 plot the path. Lines 470 and 480 scale 
the drawing down so it will fit within the 72 character page 
width of the TTY. 
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Curve Plotting for Functions 



Write a program to plot on the same set of axes any two 
pairs of the functions listed below. 

Look over the situation to be sure that both your ver- 
tical and horizontal plot will include any points of in- 
tersection. 

As a special, have the computer predict the points of in- 
tersection and label them with something other than the 
asterisks or other symbols used in the rest of the plot. 

Go at least one full cycle for any function. 



THE FUNCTIONS 

1) sin and cosine 

2) log and sin 

3) x 2 + 6x + 8 and v = 2x - 3 

Be sure the program is versatile enough to vary the 
horizontal and vertical spacing at the programmer's re- 
quest. 

Specify the units being used or better yet actually type 
them out as the axis for the plot. 

You might do well to try a few of the library plot pro- 
grams to see how they accomplish the task. 



THIS PROGRAM WILL PLOT ANY TWO FUNCTIONS 



TYPE THE FUNCTIONS IN 

AND A DEF FNA AND DEF 

INPUT THE INTERVAL TO 

? 0*6.3,0.3 

INPUT INTERVAL ON »Y • 

? - 1* 1,50 

Y-AXISt FROM - I TO 1 



BV USING LINES 
FNB STATEMENT 
BE USED ON 'X 8 



100 AND 105 



AND INCREMENT 



AND # OF SUBDIVISIONS 



STEP 



04 



• 59999999 

.9 

1.20 

1.5 

1.8 

2. 10 

2.40 

2.70 

3 + 

3.30 -f 

3*60 

3.90 

4.20 

4. 5 * 
4.80 * 

5. 10 * 
5.40 
5.70 

6 
6.30 



+ * 

+ * 

* 



+ * 



References: 

Kemeny and Kurtz, Basic Programming, pp. 53-55. 
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10 PRINT 'THIS PROGRAM WILL PLOT ANY TWO FUNCTIONS' 

20 PRINT 'TYPE THE FUNCTIONS IN BY USING LINES 100 AND 105' 

30 PRINT 'AND A DEF FNA AND DEF FNB STATEMENT' 

100DEFFNA(X) = SIN(X) 

105DEFFNB(X) = COS(X) 

1 10 DEF FNR(X) = INT(X + .5) 

120 DEF FNX(X) = INT(100*X + .5)/100 

125 PRINT 'INPUT THE INTERVAL TO BE USED ON "X" AND INCREMENT' 

130 INPUT A.B.S 

135 PRINT 'INPUT INTERVAL ON "Y" AND # OF SUBDIVISIONS' 

140 INPUT C,D,N 

150IFN<=50THEN180 

160 PRINT '50 IS THE MOST YOU MAY USE' 

170 GO TO 135 

180LETH = (D-C)/N 

190 PRINT Y-AXIS: FROM ;C;' TO ;D;' STEP ;H 

200 PRINT 

210 PRINT TAB(8);""; 

220 FOR 1=1 TO N-l 

230 PRINT '-'; 

240 NEXT I 

250 PRINT"" 

255 PRINT 

260 FOR X = A TO B STEPS 

270LETY = FNA(X) 

272 LET Y 1 = 8 + FNR((Y-C)/H) 

274LETY = FNB(X) 

276 LET Y2 = 8 + FNR((Y-C)/H) 

278 PRINT FNX(X); 

280IFY2<Y1THEN295 

282IFY1=Y2THEN290 

285 PRINT TAB(Y1);'*';TAB(Y2);' + ' 

287 GO TO 300 

290 PRINT TAB(Y1);'X' 

292 GO TO 300 

295 PRINT TAB(Y2);' + ';TAB(Y1);'*' 

300 NEXT X 

305 PRINT 

400 END 



ANALYSIS 

The functions to be plotted are defined in lines 100 and 105. 
Lines 280 and 282 determine which function is plotted first. 

The user may select the interval he wants plotted and to 
what degree of refinement. He can also select the vertical 
scale. The x-axis is not drawn. A simple modification to in- 
dicate the x-axis in the initial y-axis printout is left as an exer- 
cise for the reader. In lines 210 and 250 the four apostrophes 
result in the actual printout of just one. The outer two are the 
string indicators and two must be used inside to produce one 
in the printout. 

The function FNX (X) is used to print out the x-axis scale. 
Notice that line 290 will print an X if the curves cross at a 
point given on the graph. Line 282 sets this up. 
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A Quickie That May Take A While 



Do this one by trial and error, but give the process some 
thought first. 

Can you find a five digit number which when multiplied 
by four has its digits reversed? 

Essentially what we want is a number ABCDE such 
that: 

4 x ABCDE = EDCBA 

You'll need to develop a recognition algorithm that will 
know when the digits of a number are the reverse of the 
original. 

An old thought comes to mind. When a number and its 
mirror image are subtracted, one from the other, the 
difference is always a multiple of nine. It's just a 
thought, not necessarily a hint. 



219 78 IS THE NUMBER!?! 

10FORA=lTO2 

20FORB = 0TO9 

30FORC = 0TO9 

40FORD = 0TO9 

50FORE = 0TO9 

60LETX = (10000*A) + (1000*B) + (100*C) + (10*D) + E 

70 LET Y = (10000*E) + (1000*D) + (100*C) + (10*B) + A 

80IF4*X<>YTHEN100 

85 PRINT 

90 PRINT X;' IS THE NUMBER! ! !' 

100 NEXT E 

110 NEXT D 

120 NEXT C 

130 NEXT B 

140 NEXT A 

200 END 




ANALYSIS 

Rather than take a number and separate it into its compo- 
nent digits, the approach here was the opposite. We generate 
the digits and recompose them into a number. That way the 
physical process of reversing the digits is just that: a physical 
process. The mathematics stays uncomplicated. 

Statement 80 allows only the number with the property in 
question to be printed out. 
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Think of a Number 

Many number games start with the phrase, Think of a 
number! 

Many different algorithms have been used to do this. 
One of them is the Chinese Remainder Theorem. Think 
of a number less than 316. Write down the remainders 
when that number is divided by 5, 7 and 9. Using only 
those remainders the computer should be able to 
reconstruct the original number. 

Research the Chinese Remainder Theorem and write a 
computer program to use it to find the number someone 
has thought of. 



References: 

William LeVeque, Elementary Theory of Numbers, 

p. 52. 
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THINK OF A POSITIVE INTBSER LESS THAN 316 I 

DEVIDE YOUR NU4BER BY 5 WHAT IS THE REMAINDER? 3 
DEVIDE YOUR NUMBER BY 7 WHAT IS THE REMAINDER? 4 
DEVIDE YOUR NUMBER BY 9 WHAT IS THE REMAINDER? 7 

YOUR NUMBER IS 83 

THINK OF A POSITIVE INTB3ER LESS THAN 316 I 

DEVIDE YOUR NUMBER BY 5 WHAT IS THE REMAINDER? 
DEVlDB YOUR NUMBER BY 7 WHAT IS THE REMAINDER? 
DEVIDE YOUR NUHBER BY 9 WHAT IS THE REMAINDER? 3 

YOUR NUHBER IS 210 

THINK OF A POSITIVE INTBSER LESS THAN 316 § 

DEVIDE YOUR NUMBER BY 5 WHAT IS THE REMAINDER? 1 
DEVIDE YOUR NUMBER BY 7 WHAT IS THE REMAINDER? I 
DEVIDE YOUR NUMBER BY 9 WHAT IS THE REMAINDER? I 

YOUR NUMBER IS I 

THINK OF A POSITIVE INTESER LESS THAN 316 I 

DEVIDE YOUR NUMBER BY 5 WHAT IS THE REMAINDER? 1 
DEVIDE YOUR NUMBER BY 7 WHAT IS THE REMAINDER? 4 
DEVIDE YOUR NUMBER BY 9 WHAT IS THE REMAINDER? 2 

YOUR NUMBER IS It 

THINK OF A POSITIVE INTB3ER LESS THAN 316 ! 

DEVIDE YOUR NUMBER BY 5 tfHAT IS THE REMAINDER? ?P 
STOP AT LINE 150 



100 PRINT 

1 10 PRINT 'THINK OF A POSITIVE INTEGER LESS THAN 316 I' 

120 PRINT 

1 30 FOR I = 5 TO 9 STEP 2 

140 PRINT 'DIVIDE YOUR NUMBER BY ';I;' 

WHAT IS THE REMAINDER'; 
150 INPUT R(I) 
160 NEXT I 
170 PRINT 
180 PRINT 'YOUR NUMBER IS '; 

MOD((126*R(5) + 225*R(7) + 280*R(9)),315) 
190 GO TO 100 
200 END 



ANALYSIS 

The algorithm is contained in line 180. Lines 130 through 
160 store the values inputed by the user. R(5) is the remainder 
after the given number is divided by 5; R(7) is the remainder 
modulo 7; and R(9) is the remainder modulo 9. 

These remainders are then multiplied by 126, 225 and 280 
respectively and then summed up. That sum is divided by 315 
and the remainder is the original number. 

The reader is invited to research the algorithm using the 
references cited on the student problem page. 

It is significant that 126 = 1 mod 5 
225 = 1 mod 7 
280 = 1 mod 9 
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Numbers: Perfect, Abundant and Deficient! 



Write a program to test a given number to see whether it 
is PERFECT, ABUNDANT or DEFICIENT. 

A number is: 

Perfect: when the sum of the divisors of that number 
excluding the number itself equals the 
number in question. 

Abundant: when the sum of the divisors exceeds the 
number. 

Deficient: when the sum of the divisors is less than the 
number. 

Examples: 
6 = 1 + 2 + 3 and is PERFECT. 
12 * 1 + 2 + 3 + 4 + 6. In fact, the sum exceeds 12. 
So 12 is abundant. 

10 * 1 + 2 + 5. Here the sum falls short of 10. So 10 is 
deficient. 

You must develop an algorithm to factor a number into 
its divisors. A number of them exist. Once you've com- 
pleted that the rest is easy. Be sure to include 1 but ex- 
clude the number itself. 

References: 

Robert Wisner, A Panorama of Numbers, pp. 

84-100. 

A.H. Beiler, Recreations In the Theory of 
Numbers, pp. 11-26. 
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THIS PROS RAM WILL TAKE A NUMBER 

AND COMPUTE THE SUM OF IT'S DIVISORS 

INPUT THE NUMBER? 6 
THE DIVISORS OF 6 ARE 1 2 3 
6 IS PERFECT!! 

ANY MORE TO DO <YES OR NO) ? YES 

INPUT THE NUMBER? 12 

THE DIVISORS OF 12 ARE 12 3 4 
12 IS ABUNDANT 

ANY MORE TO DO <YES OR NO)? YES 

INPUT THE NUMBER? 10 
THE DIVISORS OF 10 ARE 1 2 5 
ID IS DEFICIENT. 

ANY MORE TO DO CYES OR NO)? YES 



INPUT THE NUMBER? 26 
THE DIVISORS OF 28 ARE I 2 4 
28 IS PERFECT!! 



14 



ANY MORE TO DO CYES OR NO)? NO 



05 DIM A$(10) 

10 PRINT THIS PROGRAM WILL TAKE A NUMBER ' 

20 PRINT 'AND COMPUTE THE SUM OF ITS DIVISORS' 

30 PRINT 

40 PRINT 'INPUT THE NUMBER '; 

50 INPUT N 

54LETS = 

57 PRINT 'THE DIVISORS OF ';N;' ARE '; 

60FORX = 1TON-1 

70 IF N/X < > INT(N/X) THEN 100 

80LETS = S + X 

90 PRINT X; 

100 NEXT X 

110 PRINT 

114 PRINT 

115 PRINTS 

120 IF S>N THEN 160 

130 IF S<N THEN 190 

140 PRINT N; ' IS PERFECT! !' 

150 GO TO 200 

1 60 PRINT N;' IS ABUNDANT! !!!!!' 

170 GO TO 200 

190 PRINT N;' IS DEFICIENT' 

200 PRINT 

210 PRINT 'ANY MORE TO DO (Y OR N)' 

220 INPUT A$ 

230 IF A$ = 'Y' THEN 30 

300 END 



ANALYSIS 

The entire problem in this program is to generate and sum 
up the divisors of a number. 

This is done in the X loop in line 60 and ff . When X is a 
divisor it is added to the partial sum S and it is printed. The re- 
mainder of the program is conditional branches on the basis of 
the sum compared to the original number. Lines 120 and 130 
effect this comparison. 

This program could be used as the front end for a program 
to generate perfect numbers. Simply test and print out only 
perfect numbers. 
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Arithmetic Tables in Modulo N 



Write a computer program to type out an addition table 
and a multiplication table modulo N, where N is any 
number up to 20. 

Remember modulo means remainder when divided by. 

For example: 17 s 1 mod 4 

means that when 17 is divided by 4 the remainder is 1 . 

Have the computer type out two separate tables, one for 
multiplication and one for addition. You may use the 
MOD function if it is available. It might be more in- 
teresting to develop your own algorithm for computing 
the remainder. It can be done in two lines or less. 
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WHAT M0DULUS? 


7 








* M0DC 7) 












# 1 


2 




3 


4 


5 6 


s ssssssss s 


= = s: 


:» : 


:sss 


cmxs=3 


SSBS S3 B 


it i 


2 




3 


4 


5 6 


2t 2 


4 




6 


1 


3 5 


3? 3 


6 




2 


5 


1 4 


4? 4 


1 




5 


2 


6 3 


5» 5 


3 




1 


6 


4 2 


6» 6 


5 




4 


3 


2 1 



♦ M0D( 7) 
# 1 



acmsBxxssssBi 



1 


2 


3 


4 


5 


6 





2 


3 


4 


5 


6 





1 


3 


4 


5 


6 





i 


2 


4 


5 


6 





1 


2 


3 


5 


6 





1 


2 


3 


4 


6 





1 


2 


3 


4 


5 



100 PRINT 'WHAT MODULUS' 

110 INPUT N 

120 PRINT '*MOD(';N;')' 

130LETL = -1 

140FORX = 1TON-1 

150 IF L<0 THEN PRINT ' #';' 

160LETL = 5 

170 IF X> =0 THEN PRINT X;' 

180 NEXT X 

190 PRINT 

200 PRINT '= = = = = = = = = 

210 IF N = 2 THEN 250 

220FORW=lTON-3 

230 PRINT '= = = = ='; 

240 NEXT W 

250 PRINT 

260 FOR 1=1 TO N-l 

270FORJ = 1TON-1 

280 IF J = l THEN PRINT I; 't '; 

290 PRINT MOD(I*J,N);' '; 

300 NEXT J 

310 PRINT 

320 NEXT I 

330 PRINT 

340 PRINT 

350 PRINT 

360LETL = -1 

370 PRINT '+MOD(';N;')' 

380FORY = 1TON-1 

390 IF L<0 THEN PRINT '#';' ' 

400LETL = 5 

410 IF Y > = 1 THEN PRINT Y;' 

420 NEXT Y 

430 PRINT 

440 PRINT '= = = = = = = = = = 

450 IF N = 2 THEN 500 
460FORW=lTON-3 
470 PRINT '= = = = ='; 

480 NEXT W 

490 PRINT 

500 PRINT 

510FORI = 0TON-l 

520 FOR J = TO N-l 

530 PRINT MOD(I + J,N);' '; 

540 NEXT J 

550 PRINT 

560 NEXT I 

570 END 



ANALYSIS 

The program is lengthy because of the care taken to print 
the table in a neat format regardless of the size of the table. 

The loops in 220 and 460 simply insure that the line drawn 
beneath the heading is the proper length. The meat of the pro- 
gram is the MOD function in lines 290 and 530. This function 
returns A modulo B when written as MOD (A,B). If this func- 
tion is not available then the reader will have to use an alter- 
native. One such is to take the greatest integer in A/B and sub- 
tract it from A after multiplying it by B. The result is the re- 
mainder after A is divided by B. 
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Gauss-Seidel Iterative Procedure 

There is a technique for solving systems of equations 
which has probably occurred to some students. 

For example when solving 3 equations in 3 unknowns, 
why not guess at the y and z, plug these in and generate 
x. Then take the new x which is now more than a guess 
and use the current z to generate a new y. Then take the 
generated x and y to generate a z. This process will 
iterate to a solution under certain conditions. 

The iteration will not converge if the coefficient matrix 
of the original system is not diagonally dominant. This 
means if the system were 

Ax + 2y - z = 11 

x + ly + 2z = 16 

2x 3v - 9z = 85 

this system would have a solution because: 

|4| > |2| + |-1 1 and 

|7| > |1| + |2| and 

|-9| > |-3| + |2| 

In addition to these three conditions one of the above 
inequations must be a strict inequality. That is the left 
must be strictly greater than the right. Under these con- 
ditions the process will iterate to a solution. 

Write a computer program to accept the equations 
which have been solved for the respective variables. You 
could even have the computer solve them. Input the 
coefficients and the initial guesses. Have the computer 
type out the approximations along the way. Include a 
test for convergence. Test to see whether a given value 
has changed in the last iteration. 
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GUESS Y * Z 



?0*0 
8 

7.0333333 
6.9966667 
6.9998394 
7.0000106 



4 

4*0148 148 

4.0001645 

3.9999469 

3.9999988 



1. 10 

1.0048 148 
.9996831 1 
.9999 7862 
1.0000009 



10 DIM X(100),Y(100),Z(100) 

20 READ A,B,C,D ) E,F,G,H > U,J I K,L 

25LETI = U 

30 IF ABS(A) < ABS(B) + ABS(C) THEN 200 

40 IF ABS(F) < ABS(E) + ABS(G) THEN 200 

50 IF ABS(K) < ABS(I) + ABS( J) THEN 200 

60 IF ABS(A) > ABS(B) + ABS(C) OR ABS(F) > ABS(E) + ABS(G) THEN 210 

70 IF ABS(K) > ABS(I) + ABS(J) THEN 210 

200 PRINT CONVERGENCE UNLIKELY ! ! ! ' 

205 GO TO 400 

210 PRINT GUESS Y & Z' 

220 INPUT Y(0),Z(0) 

230LETX(0) = 

240FORI = lTO100 

250 LET X(I) = (D-B* Y(I- 1 )-C*Z(I- 1 ))/A 

260 LET Y(I) = (H-E*X(I)-G*Z(I-1))/F 

270 LET Z(I) = (L-U*X(I)-J* Y(I))/K 

280 PRINT X(I),Y(I),Z(I) 

290 IF ABS(Y(I)-Y(I-1)) < .0001 THEN STOP 

300 NEXT I 

350 DATA 3, 1 ,-1 ,24, 1 ,-9, 1 ,-28, 1 , 1 ,-10, 1 

400 END 



ANALYSIS 



The limitations on this algorithm are mentioned in the stu- 
dent problem section. They are tested in lines 30 through 70. 

In line 220 the initial guesses for Y and Z are entered. The 
loop in 240 assumes that it will never take as many as 100 itera- 
tions. Lines 250 through 270 actually compute the values. 
These will remain the same regardless of the coefficients. The 
recycling of the updated variables is done by the subscripts. 
The current values are printed and the printout is terminated 
when the Fs differ by less than .0001 for two consecutive 
iterations. This was an arbitrary choice. 



The program is limited to a 3 x 3 system. 



Reference: 

John Lee, Numerical Analysis for Computers, p. 

165. 
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Self-Generating Integers 



Self-generating integers are whole numbers whose 
separate digits, when factorialized (!) each by itself and 
added together, give the original number. 

An example is not given here because there are only four 
such numbers known. There is one with three digits. 
However, an example of a trial could be: 1 ! + 2! + 3! is 
equal to 1 + 2 + 6 or 8 which is not equal to 123. 
Therefore, 123 is not a self -generating integer. 

Write a computer program to find as many of these 
SGFs as you can. You must have a routine to fac- 
tor ialize an integer. 

This is a time-consuming program so be as efficient as 
possible. Unless you have no time limit on CPU time, 
you may only be able to find a few or even one such 
SGI. 
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WORKS! ! ! 



100 FOR A = TO 9 

110FORB=0TO9 

120 FOR C = TO 9 

125 FOR D = TO 9 

130IFA< = 1THENX = 1 

140IFA = 2THENX = 2 

150IFA = 3THENX = 6 

160IFA = 4THENX = 24 

170IFA = 5THENX = 120 

180 IF A = 6 THEN X = 720 

190IFA = 7THENX = 5040 

200 IF A = 8 THEN X = 40320 

210 IF A = 9 THEN X = 362880 

220IFB< = 1THENY = 1 

230IFB = 2THENY = 2 

240IFB = 3THENY = 6 

250IFB = 4THENY = 24 

260 IF B = 5 THEN Y = 120 

270 IF B = 6 THEN Y = 720 

280 IF B = 7 THEN Y = 5040 

290 IF B = 8 THEN Y = 40320 

300 IF B = 9 THEN Y = 362880 

310IFC=<1THENZ = 1 

320IFC = 2THENZ = 2 

330IFC = 3THENZ = 6 

340IFC = 4THENZ = 24 

350IFC = 5THENZ=120 

360 IF C = 6 THEN Z = 720 

370 IF C = 7 THEN Z = 5040 

380 IF C = 8 THEN Z = 40320 

390 IF C = 9 THEN Z = 362880 

400IFD< = 1THENW=1 

410IFD = 2THENW = 2 

420IFD = 3THENW = 6 

430IFD = 4THENW = 24 

440IFD = 5THENW=120 

450 IF D = 6 THEN W = 720 

460 IF D = 7 THEN W = 5040 

470 IF D = 8 THEN W = 40320 

480 IF D = 9 THEN W = 362880 

500IF1000*A+100*B+10*C + D<>X + Y + Z + WTHEN550 

510 PRINT A,B,C,D;' WORK!!!!' 

550 NEXT D 

555 NEXT C 

560 NEXT B 

570 NEXT A 

600 END 



ANALYSIS 

The program is designed to find only three and four digit 
self-generating integers. 

Upon checking it is obvious that: 

1! + 4! + 5! = 145 

There appear to be no self-generating integers with four 
digits. There are however at least four more integers. The 
reader is invited to pursue the use of a DEF FN loop to com- 
pute the factorials. The great deal of checking necessary here 
makes the algorithm inefficient. 

The literature on this subject is not voluminous. The Jour- 
nal of Recreational Mathematics or the Mathematical Gazette 
have carried articles on the subject. 
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A Healthy List of Prime Numbers 



Write a program to print in heirarchical order all prime 
numbers from 2 to 1000. 

There is a classical algorithm for this process and you 
should know it. 

You may not perform any multiplication or division in 
your program yet you will be able to generate all the 
primes called for in the exercise. 

Print the primes horizontally, so as to conserve paper. 

Remember 2 is a prime number. 

HINT: Do not try to generate the primes directly. 
Eliminate the undesirables from your list. Let them fall 
through your sieve as it were. 

References: 

Robert Wisner, A Panorama of Numbers, pp. 67-71. 

Kemeny and Kurtz, Basic Programming, pp. 60-63. 

J.H. Caldwell, Topics in Recreational 
Mathematics, pp. 32-40. 
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2 3 5 7 

10! 103 

193 197 

29 3 307 

409 4 19 

521 523 

641 643 

757 761 

88 1 883 



11 13 17 19 
107 109 113 
199 211 S23 
311 313 317 
421 431 433 
541 547 557 
647 653 659 
769 773 787 
887 907 9 I 1 



23 29 31 37 
127 131 137 
227 229 233 
331 337 347 
439 443 449 
563 569 571 
661 673 677 
797 809 811 
9 19 929 9 37 



41 43 47 53 
139 149 15S 
239 241 251 
349 353 359 
457 461 463 
577 58 7 59 3 
683 69 1 701 
821 823 827 
941 947 953 



59 61 67 7 1 73 79 8 3 89 9 7 
157 163 167 173 179 181 19 1 
257 263 269 271 277 28 1 283 
367 373 379 38 3 389 39 7 401 
467 479 487 49 1 499 503 509 
599 601 607 613 617 619 631 
709 719 787 733 739 743 751 
829 839 853 857 859 863 877 
967 971 977 983 99 1 997 



05 DIM A( 1000),B(200) 

10 FOR X = 2 TO 1000 

20LETA(X) = 

25 NEXT X 

30LETC = 

35LETS = SQR(1000) 

40 FOR B = 2 TO 1000 

50IFA(B)<0THEN100 

60LETC = C+1 

65LETB(C) = B 

70 IF B>S THEN 100 

75 FOR X = B TO 1000 STEP B 

80LETA(X) = -1 

90 NEXT X 

100 NEXT B 

110 PRINT 

120FORX = 1TOC 

130 PRINT B(X); 

140 NEXT X 

200 END 



ANALYSIS 

The Sieve of Eratosthenes is the basis for this program. Line 
10 begins the test loop. All numbers from 2 to 1000 are tested. 
Only those which are prime are printed. 

The primes are stored in the array B(X). The A(X) array is a 
workspace. When A(X) is found to be divisible by a previous 
prime it is made negative and hence excluded from the list by 
line 50. Statement 65 tucks the next number not crossed out in- 
to the B(X) array to be printed later. The loop from 75 to 90 
actually strikes out the multiples. 

Line 70 insures that the algorithm doesn't do any wasteful 
computation. Any multiple which would be divisible by 
something greater than the SQR(1000) would have shown up 
when divided by the smaller factor. 

The final loop from 120 to 140 prints the primes. The semi- 
colon keeps the print element on the same line of type to con- 
serve paper. 

The output took only a quarter of a second. The program 
can be expanded to generate a large number of primes very 
easily. Just change all the 1000's to a larger number and save 
space in the B array for more primes. 

It is interesting to study the density and frequency of primes 
with a large list. 
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Pascal's Triangle (The Challenging Way) 



Write a program to generate piece by piece the rows of 
Pascal's triangle. 

The triangle must be isosceles and the ones along the 
sides must be included. 

Generate at least the first seven rows. Be sure enough 
space is allowed for double numbers, so that the triangle 
will not be unduly distorted. 

As you know there are many ways to generate the 
triangle. Combinatorial methods, trigonometric 
methods, the binomial theorem. Choose the one you 
think is best suited and proceed. 

The arithmetic generation of the triangle is to be 
discouraged. It is long and does not require much skill. 
We won't allow the first two rows to be entered so that 
the others can be generated by successive addition. 
There are too many other GOOD ways of generating it. 

References: 

See the pages on Pascal's triangle in the Appendix. 






J 
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PASCALS TRIANGLE GENERATED!! 



HEAH COME DA TRI-ANGLE!!! 

1 
1 1 
1 2 1 
13 3 1 
14 6 4 1 
1 5 10 10 5 1 
1 6 15 20 15 6 1 
1 7 21 35 35 21 7 1 
I 8 28 56 70 56 28 8 1 



100DIMA(15),C(15,15) 

110 PRINT 

1 20 PRINT PASCALS TRIANGLE GENERATED! ! ' 

130 PRINT 

140LETA(0) = 1 

150FORX = lTO10 

160LETA(X) = A(X-1)*X 

170 NEXT X 

180LETB$ = '*' 

190FORN = 0TO8 

200 FOR R = TO 8 

210 IF N<R THEN 240 

220 LET C(N,R) = A(N)/(A(R)*A(N-R» 

230 IF C(N,R) <> THEN 240 

240 NEXT R 

250 NEXT N 

260 PRINT 

270 PRINT HEAH COME DA TRI-ANGLE!!!' 

280 PRINT 

290FORI = 0TO8 

300 FOR J = TO I 

310PRINTTAB(9-I);C(I,J); 

320 NEXT J 

330 PRINT 

340 NEXT I 

350 END 



ANALYSIS 

The number of combinations of n things taken r at a time 
will produce the binomial expansion coefficients of the expan- 
sion of (X + Y) to the nth power. 

The digits of the triangle were produced in this way. The 
loop for X at 150 computes the factorials needed in the for- 
mula for combinations. Line 220 computes the number of 
combinations and stores it in the array C. 

The nested loops in 290 print the triangle. Suppression of 
trailing zeroes is done by the incrementation of those loops. 
Only as many elements as the number of the row are printed. 
The TAB function in line 310 causes the triangle to be printed 
in the triangular rather than column form. Slight modifica- 
tions to statements 310 and the change in the upper limits of 
the loop would allow more rows to be generated. 
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UE. 



Mersenne Primes 



A number which is prime and of the form 2 P - 1 where p 
itself is prime is known as a Mersenne prime. 

These numbers are useful in the study of perfect 
numbers. (See problem of that title). Each Mersenne 
prime of the form 2 p -\ produces an even perfect 
number of the form below and every even perfect 
number is of this form. 

There are no known odd perfect numbers! Write a pro- 
gram to find several p's that yield Mersenne primes, and 
find the corresponding even perfect numbers. 

Form of Perfect Number.... 1P-\2 P - 1) 



References: 

Kathy Ruckstahl and Charles Wilford, More Chips 
from the Mathematical Log, pp. 36-39 

Ball, Mathematical Recreations and Essays. 

Kraitchik, Mathematical Recreations, pp. 70-73 



PRIME 
2 
3 
5 
7 



MERSENNE PRI 
3 
7 

31 
127 



PERFECT NO« 
6 

28 
49 6 
8 128 



13 



8 19 1 



33550336 



TIME LIMIT EXCEEDED - PROGRAM STOPPED* 

100 PRINT 'PRIMES 'MERSENNE PRI 

110 PRINT 

120 READ P 

130 LET M«2tP- 1 

140 FOR X*2 TO < 2* P- 2) 

150 IFM/X<>INT(M/X) THEN 170 

160 60 TO 1 10 

170 NEXT X 

180 PRINT P,2*P» l,2t<P- l)*<2f P- 1) 

19 PRINT 

200 60 TO 120 

210 DATA 2*3,5*7, lb 13, 17, 19 

220 END 



NO. 



100 PRINT 'PRIME', 'MERSENNE PRI'.'PERFECT NO.' 

110 PRINT 

120 READ P 

130LETM = 2tP-l 

140FORX = 2TO(2tP-2) 

150 IF M/X < > INT(M/X) THEN 170 

160 GO TO 110 

170 NEXT X 

180 PRINT P,2tP-l,2t(P-l)*(21P-l) 

190 PRINT 

200 GO TO 120 

210DATA2.3, 5,7,11, 13,17,19 

220 END 



ANALYSIS 

This program is a simple plug-in. The data supplies the 
prime numbers. The recursion relationship is guaranteed to 
produce primes and perfect numbers when primes are plugged 
in as exponents. 

The test for primeness is important because the variable M 
may not always be prime. The reader is invited to eliminate it 
and rerun the program. 
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1.7 



Continued Fraction Analysis 

A continued fraction is an ordinary fraction which has 
been rewritten. 

For example: 7/1 1 could be written as follows 

1/(11/7) = 1/[1 + (4/7)] = 1/[1 + 1/(7/4)] = .... 

Write a computer program to accept any rational 
number and convert it to continued fraction form. The 
output need not be in the format given above. Simple 
slashes (/) may be used to indicate division. 

It is possible to have the output as it is given above. It is 
most difficult, however, and hardly worth the extra 
time. 

Reference: 

A. Ya Khinchin, Continued Fractions. 



INPUT NUMERATOR & DENOMINATOR? ill* 193 
1/ 1+1/ 1+1/ 2+1/ 1+1/ 4+1/ 1+1/ 4+ 



100 PRINT INPUT NUMERATOR & DENOMINATOR'; 

110 INPUT N,D 

120LETA = INT(D/N) 

125 IF A = THEN 190 

130LETB = D-(A*N) 

140 PRINT '1/';A;' + '; 

160LETD = N 

170LETN = B 

175 IF N = THEN 190 

180 GO TO 120 

190 END 



ANALYSIS 

The algorithm by which the continued fractions are 
generated is a simple one. The fraction entered is flipped over, 
the quotient is printed as a denominator under 1. A is the quo- 
tient. The remainder is then put in fractional form— lines 160 
and 170 and the process is continued until a zero is en- 
countered. The zero test— line 175— is done before dividing to 
avoid an error message. 

This problem will successfully accomodate even the largest 
fractions. The teacher or student is invited to reformat the 
output. Clean up the printing and the trailing + sign. 

This program can also be used in conjunction with another 
problem in this volume. The Infinite Network of Resistances 
problem involves a continued fraction. The current program 
could be used as a subroutine within that problem. 
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1.B 



Extended Precision Division 



Write a program to carry out a division until it repeats. 
All rational numbers (fractions) can be expressed as 
decimals. All rational numbers repeat sooner or later. 

Take a long, hard look at the long division algorithm 
you are so familiar with. Program the computer to do 
exactly what you do when you divide. 

When you get it working print out all the fractions with 
denominator 17. Take a look at the pattern. Try some 
other prime denominators. Try to establish a pattern for 
these. Use the greatest integer function (INT) to devise a 
test for divisibility. 



LEAST EXPONENTS TABLE FOR PRIME DE NOMINATOR S_3_JOj97 



PRIME 


EXPONENT 


PRIME 


EXPONENT 


3 


1 


**47 


46 


*#"7 


6 


53 


13 


11 


2 


**59 


58 


13 


6 


**61 


60 


**17 


16 


67 


33 


**19 


18 


71 


35 


**23 


22 


73 


8 


**29 


28 


79 


13 


31 


15 


83 


41 


37 


3 


89 


44 


41 


5 


**97 


96 


A3 


21 
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INPUT DENOMINATOR 
? 13 



2 3 

3 7 

3 8 4 

6 1 



4 
5 

6 t 
6 9 



1/ 13 » 
2/ 13 - 

3/ 13 » 

4/ 13 = 
5/ 13 =» 
6/ 13 = 
7/ 13 » 
8/ 13 = 

9/ 13=* 69 230769 230 
10/ 13=* 769230769230 
11/ 13*0846153846 153 
12/ 13**9 230769 23076 



7 6 9 2 3 

15 3 8 4 6 1 

7 6 9 

6 9 2 

6 1 5 

5 3 8 

4 6 1 

3 8 4 

3 7 



3 8 

1 5 



7 
5 

2 3 

3 
3 8 
4 
5 
6 



6 9 2 3 

3 8 4 6 
7 6 9 

7 6 9 2 

4 6 15 
6 15 3 8 
3 8 4 6 1 

3 8 4 



1 5 



INPUT DENOMINATOR 


? 17 






1/ 17 « 


© 


0588235294117647 


2/ 17 a 





1 176470588235294 


3/ 17 = 


. 


176470588235294 1 


4/ 17 = 


» 


235294 1176470588 


5/ 17 = 


• 


294 1 176470588235 


6/ 17 = 


e 


35294 11764705882 


7/ 17 = 





4 117647058823529 


8/ 17 = 


• 


470588235294 1176 


9/ 17 = 





5294 117647058823 


10/ 17 » 





5882352941176470 


11/ 17= 





6470588235294 1 17 


12/ 17 « 


• 


70588235294 1 1764 


13/ 17 » 





76470588235294 1 1 


14/ 17 = 


e 


8235294117647058 


15/ 17 = 


, 


88235294 1 1764705 


16/ 17 = 





94 1 1764705882352 



100 PRINT 'INPUT DENOMINATOR' 

110 INPUT N 

120FORT=1TON-1 

130LETX = 

140 PRINT 

150 LET A = T 

160 PRINT A;7';N;' = .'; 

170 IF (A*10)/N< 1 THEN 240 

180LETA = A*10 

190 PRINT INT(A/N); 

200LETX = X + 1 

210IFX>=N-1 THEN 290 

220 LET A = A-INT(A/N)*N 

230 GO TO 170 

240 LET A = A* 10 

250 PRINT '0'; 

260LETX = X + 1 

270 IF X > = N-l THEN 290 

280 GO TO 170 

290 NEXT T 

300 END 
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rwlME DEN 


LEAST EXP 


###* 


?# ,■/## 


# # # # # ### 


3 




1 


7 ** 


6 


1 1 




2 


13 




6 


17 


** 


16 


19 


*:!< 


18 


23 


** 


22 


29 


^ -■;: 


op 


31 




1 5 


37 




3 


41 




5 


43 




21 


47 


** 


46 


53 




13 


59 


** 


58 


61 


** 


60 


67 




33 


7 1 




35 


73 




8 


79 




13 


6 7 




28 


89 




44 


97 


^ H* 


96 



90 PRINT 

95 PRINT 'PRIME DEN', 'LEAST EXP' 

97 PRINT '##### ###','##### ###' 

99 PRINT 

100 READ D 

105 IFD = 5 THEN 100 

110X = 10 

120 N=l 

130X = MOD(X,D) 

140IFX = 1 THEN 180 

150X = X*10 

160N = N+1 

170 GO TO 130 

180 IF N = D-1 THEN PRINT D;'**',N ELSE PRINT D,N 

190 GO TO 100 

260 DATA 3,5,7,11,13,17,19,23,29,31,37,41,43,47,53 

270 DATA 59,61,67,71,73,79,87,89,97 

272 DATA 179,181,191,193,197,199,211,223,227,229,233,239,241,251 

280 END 



ANALYSIS 

This is an extended precision division routine. It works ex- 
actly as long division does. It should be run only with proper 
fractions. It will generate n - 1 places of all the fractions with 
denominator n. 

Line 170 does most of the work. Line 190 does the print- 
out. Zeroes are carried down from the dividend by line 240. 
Line 220 does the subtraction of the product of the partial 
quotient and the divisor. 

The table that was given in the problem section is signifi- 
cant. If we look at 17 we see that we will have to raise 10 to the 
16th power before a division by 17 will give a remainder of 1. 
This means that 16 is a primitive root of 17. This is why there 
are 16 places of repetition in the fractional expansion of 
denominators of 17. Notice also that if the 16 places are split 
the first eight are the nines-complement of the last eight. 
Notice further that each of the sixteen decimal expansions is 
simply a cyclic permutation of the other expansions. 

For 13 the primitive root is 6. It will only repeat every 6 
places. Those six will still be nines-complementary when split 
in half. Furthermore, the cyclic pattern here occurs in two 
groups because the quotient when 13 is divided by 6 is 2. The 
reader is encouraged to expand some of the other fractions to 
verify this intriguing relationship. 

The program PRIMITIVE has been included to show the 
reader how it is possible to generate the table given in the stu- 
dent problem section. The reader is invited to follow the pro- 
gram through for several denominators. The algorithm used is 
clever and efficient. It computes the remainders for successive 
powers of 10 without actually doing any extended precision 
multiplications or divisions. 
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G.H.Hardy's Dull Number! 



There is a story circulating about the famous British 
mathematician G. H. Hardy and his meeting with the 
bright young Indian mathematician Ramanujan. 

Hardy told how he had ridden in a taxi with a number 
which he considered very dull. Upon hearing the 
number Ramanujan promptly replied how really in- 
teresting the number was after all. He claimed it was the 
smallest integer which could be written as the sum of 
two cubes in two different ways! 

Write a program to find the number on Hardy's taxi. 

Trial and error solutions are certainly permissible, a bit 
of historical research wouldn't hurt either. 

Essentially what you're looking for is an integer / such 
that: 

I = x 3 + y 3 

and 
1= a 3 +b 3 

where x, y, a, and b are four different numbers. 
Assume that x, y, a, b belong to the natural numbers 



G. H. HARDY 9 S DULL NUMBER IS 1729 

IT CAN BE WRITTEN AS 1*3+ 12 13 

AND»*9«**e 9 1 3 + 10*3 



10FORX = lTO30 

20 FOR Y = 1 TO 30 

30 FOR A=l TO 30 

40 FOR B = l TO 30 

50 IF X = A OR Y = A THEN 100 

60IFXt3 + Yt3<>AI3 + Bt3THEN100 

70 PRINT 'G. H. HARDY"S DULL NUMBER IS ';Xt3 + Y13 

80 PRINT 'IT CAN BE WRITTEN AS ';X;' 13 + ';Y;'t3' 

90 PRINT' AND ';A; ' t3 + ';B;'T3' 

95 GO TO 200 
100 NEXT B 
110 NEXT A 
120 NEXT Y 
130 NEXT X 
200 END 




ANALYSIS 

The program is really rather trivial. The sheer power of the 
computer is illustrated here. One would never dream of solv- 
ing a problem in number theory by such crude methods were it 
not for the incredible speed of the machine. 

Lines 50 and 55 insure that the commutation of two iden- 
tical elements is not printed out as a solution. It tests for a uni- 
que pair. It is an example of some of the logic functions in 
BASIC which make it such a powerful problem-solving 
language. 

It took over 2 seconds to test less than 30 4 possibilities. 
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Multiplication Tables in Several Bases 

Prepare a program that will construct a multiplication 
table for any base from 2 to 10. 

Have the computer accept a number from an INPUT 
statement and from that construct the table. 

HINT: Use a double subscripted variable and keep in 
mind that element ,4(m,n) = A(m,n). 

References: 

Robert Wisner, A Panorama of Numbers, pp. 10-18. 

A. H. Beiler, Recreations in the Theory of 
Numbers., pp. 67-72. 

Aaron Bakst, Mathematical Puzzles and Pastimes, 

pp. 43-55. 



4 5 x 2 5 = I3 9 
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Amicable Numbers 



Some numbers possess no status whatsoever, but when 
related to other numbers they become famous. 

Such a number is 220. It doesn't appear to be unusual at 
all. In fact if we add up all of its integral divisors ex- 
cluding the number itself we get: 

1+2 + 4 + 5 + 10+11+20 + 22 + 44 + 55 + 110 

= 284 
Nothing startling there, not yet. Now let's try another 
unassuming number, 284. If we do the same for it we 
get: 

1 + 2 + 4 + 71 + 142 = 220 

A bit more intriguing, isn't it? There seems to be a part- 
nership here between 220 and 284; such number pairs 
are called amicable numbers. There are around 400 such 
number pairs known today. In 1750, Euler discovered 
59 such pairs. 

Devise a program to search out at least five more 
amicable pairs. There are at least five less than 
10,000,000. 

If in your research you find other pairs, they are 
allowable only if the computer program produces them 
in the normal course of its run. 

You'll need a method of factoring into all the integral 
divisors, much as we suggested for perfect numbers. 
These two problems make an ideal tandem program. Be 
sure to exclude the number itself from the list of 
divisors. 

References: 

Robert J. Wisner, A Panorama of Numbers, pp. 
101-103. 

A. H. Beiler, Recreations in the Theory of 
Numbers, pp. 26-30. 

Elvin J. Lee, History and Discovery of Amicable 
Numbers, p. 77. 

Steve Rogowski, Computer Clippings, p. 2. 



95 



AMI CABLE NUMBER SEARCH 
6 AND 6 ARE AMICABLE NUMBERS!!! 

28 AND 28 ARE AMICABLE NUMBERS!! I 

220 AND 284 ARE AMICABLE NUMBERS!!! 

284 AND 220 ARE AMICABLE NUMBERSI!! 



10 PRINT AMICABLE NUMBER SEARCH ' 

20 FOR X = 5 TO 500 

30LETS = W = 

40FORK=1TOX-1 

50 IF X/K < > INT(X/K) THEN 100 

60LETS = S + K 

100 NEXT K 

110LETT = S 

120FORL = 1TOT-1 

130 IF T/L < > INT(T/L) THEN 200 

140LETW = W + L 

200 NEXT L 

210 IF W <> X THEN 250 

220 PRINT X; ' AND ;S; ' ARE AMICABLE NUMBERS! ! !' 

230 PRINT 

250 NEXT X 

300 END 



ANALYSIS 



The fact that 6 and 28 were printed out as amicable numbers 
should not surprise the reader. The program factors a number 
into all its divisors. Actually, factor is a poor word! It sums up 
the divisors and then takes that sum and factors it. It then 
adds up the second group of divisors. If the second sum brings 
us back to the number we started with then we have an 
amicable number or a perfect number. 

Actually if we talk in terms of cycles, a perfect number has 
cycle 1; an amicable number has cycle 2. It would be in- 
teresting to modify this program to print out numbers with cy- 
cle 3 which one might call friendly numbers or some such 
thing. 

Some modifications which could be used to increase 
efficiency follow. Notice that line 50 tests to see if # divides X. 
Line 130 tests the sum of the divisors of X that is T. We could 
conceivably cut the looping time in half by not only saving the 
divisor but also the quotient. These are left as an exercise for 
the reader. 

A more efficient algorithm for computing the sum of the 
divisors is available. It involves the prime factors of the 
number. It will take less computer time and hence allow for 
the generation of more amicable pairs. There are a total of 5 
pairs less than 10,000. 
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Twin Prime Generator— Companion 



Once you have figured out how to generate prime 
numbers it should be a simple matter to modify the pro- 
gram and print out a set of twin primes. Twin primes 
are two numbers both of which are prime and which 
differ by two. 

There is only one even prime number and that is 2. All 
other primes are odd. If two consecutive prime numbers 
are found they are called twin primes. 

For example, 3 and 5 are twin primes, so are 17 and 19. 

Have your program split out all such pairs less than 
2000. 

TWIN**PRIMES 



41 

137 

227 

347 

5 69 

809 

1019 

1 151 

1319 

1607 

1787 

1997 



43 



139 

229 

349 

571 

81 1 
1021 
1 153 
1321 
1609 
1789 
1999 



59 

149 

239 

419 

599 

821 

1031 

1229 

1427 

1 619 

1871 



61 



151 
241 
42 1 

60 1 

823 
1033 
1231 
1429 
162 1 
1873 



1 1 

71 

179 

269 

431 

617 

827 

1049 

1277 

1451 

1667 

1877 



13 
73 



181 

271 

433 

619 

829 
1051 
1279 
1453 
1669 
1879 



17 

101 

191 

281 

461 

641 

8 57 

1061 

1289 

1481 

1697 

1931 



19 

103 

193 

283 

463 

643 

8 59 
1063 
129 1 
148 3 
1699 
1933 



29 

107 

197 

31 1 

521 

6 59 

881 

1091 

1301 

1487 

1721 

1949 



31 



109 

199 

31 3 

523 

661 

883 
1093 
1303 
1489 
1 723 
1951 



10DIMA(2000),B(400) 

20 FOR X = 2 TO 2000 

25LETA(X) = 

30 NEXT X 

35LETC = 

40LETS = SQR(2000) 

42FORB = 2TO2000 

50IFA(B)<0THEN100 

60LETC = C+1 

65LETB(C) = B 

70 IF B>S THEN 100 

74 FOR X = B TO 2000 STEP B 

80LETA(X) = -1 

90 NEXT X 

100 NEXT B 

110 PRINT 

115 PRINT' 

117 PRINT 

120 FOR X = 2 TO C 

125 IFB(X)-B(X-1)<>2THEN 140 

130 PRINT B(X-l);' ';B(X), 

140 NEXT X 

200 END 



TWIN**PRIMES' 



ANALYSIS 

There are surprisingly few twin primes less than 2000. The 
algorithm is not quite as efficient as the one given for primes. 

The program is essentially the same program which 
generated the list of primes. One statement, 80, was added to 
test for twins. 

A more complete list could lead to a study of the density and 
frequency of primes. The topic is covered at length in an ex- 
cellent little volume called A Panorama of Numbers. It is 
referenced in the bibliography at the end of this book. 
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5a 



The Inverse of a Matrix 



Write a program to invert an n x n matrix where n is 
no bigger than five. 

You may not use the MAT INV statements in the pro- 
gram for anything but a check. 

We have developed several algorithms for inverting a 
matrix, any one of these are computer compatible. You 
might want to check the inverse by using it to multiply 
the original matrix and seeing if the identity matrix 
results. This is quite easy to do with the series of MAT 
statement available in BASIC. 




References: 

Kemeny and Kurtz, Basic Programming. 

Calingaert, Principles of Computation, pp. 143-155. 

Kenneth Loewen, More Chips from the 
Mathematical Log, p. 70. 
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100 PRINT 'INPUT RANK OF MATRIX'; 

50 REM BE SURE TO MODIFY INV() COMMAND AND 

55 REM TO ASSURE PROPER RUN 

110 INPUT N 

115 PRINT 

120 PRINT 'THE MATRIX IS A ';N;' BY ';N 

125LETW = (N-1)!2 

126 DIM D( 100) 

130MATB = DIM(N-1,N-1) 

140MATA = DIM(N,N) 

150 PRINT 

160 MAT READ A(N,N) 

170 FOR R=l TON 

180 FOR C=l TON 

190 PRINT A(R,C);' '; 

200 NEXT C 

210 PRINT 

220 NEXT R 

230MATS = INV(A) 

240LETD2 = DET 

250FORR=1TON 

260 FOR C=l TON 

270L = 1 

280 FOR 1 = 1 TON 

290 FOR J = l TON 

300IFR = ITHEN340 

302 IF J = C THEN 340 

310D(L) = A(I,J) 

320L = L + 1 

340 NEXT J 

350 NEXT I 

360L=1 

370FORX = 1TON-1 

380FORY = 1TON-1 

390B(X,Y) = D(L) 

400L = L + 1 

410 NEXT Y 

420 NEXT X 

430MATT = INV(B) 

440LETD = DET 

450 LET C(C, R) = (SGN((- 1) t (R + C))*D)/D2 

460 NEXT C 

470 NEXT R 

475 PRINT 

480 PRINT INVERSE IS:' 

485 PRINT 

490 FOR R = l TON 

500 FOR C=l TON 

510PRINTC(R,C), 

520 NEXT C 

530 PRINT 

540 NEXT R 

550 DATA 2,3,-1,1,2,1,-1,-1,3 

560 END 



DIMENSION 



ANALYSIS 

The computation of the inverse is done by a method describ- 
ed in the Schaum's Outline Series volume entitled 
MATRICES. 

Essentially the matrix to be inverted is tested for invertibili- 
ty. If its determinant is zero it cannot be inverted. If the deter- 
minant is non-zero it is saved in line 240. Notice that in line 
230 the INVERSE of A was taken. This appears to be against 
the rules set down in the problem section. However, on this 
system (RTB— UNIVAC) the DET function for computing 
the determinant can only operate on the most recently inverted 
matrix. It has no argument and hence INV(A) caused line 240 
to store the determinant of A in D2. 

The computation of the inverse is essentially the same as the 
internal subroutine used by BASIC to compute inverses with 
the INV function. The adjoint of matrix A is computed in 
lines 250 through 470. 

The adjoint is found by deleting the row and column of 
matrix A and substituting the value of the minor for these 
rows multiplied by (-1) raised to the R + C power where 
i? = row and C= column. The matrix thus obtained is 
transposed. This is the adjoint. The deletion of the row and 
column in question is done by the test in 300 and 302. 

The determinant array is stored in B in line 390. Its determi- 
nant is computed in 440. The transpose is taken in 450 by 
simply switching the subscripts. 

The final step of dividing each element of the adjoint by the 
determinant of A is also done in line 450. The printout is done 
in the last series of nested loops beginning on line 490. 
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5if 



Magic Squares by Computer 



A Magic Square is an array of numbers with just as 
many rows as columns. The sum of any row, column or 
diagonal is always the same. No number may be used 
more than once in constructing the array. 

Write a computer program to generate magic squares up 
to 12 x 12. Let the user specify the size of the square. 
The sum to which all lines converge may be any positive 
integer. It could possibly be selected at random based 
upon a starting point which the user specifies. 

The magic square shown below is remarkable in that it 
sums to 34 not only for all rows, columns and 
diagonals, but also for corner arrays, the center square 
of four and many more. It is attributed to Albrecht 
Durer and appeared in one of his paintings in the year 
1514, as is indicated by the center squares on the very 
bottom line of the painting. 



lb 


3 


2 


13 


5 


ID 


11 


fl 


R 


t. 


7 


IE 


A 


IS 


14 


1 



TYPE AN ODD NUMBER < 12 fiND A RANDOM NUMBER < 800! 

? 3*76 

N a 3 «■»■ SUM ■ 240 

79 84 77 



78 
83 



80 
76 



82 
81 



100 



TYPE AN ODD NUMBER < 12 AND A RANDOM NUMBER < 800! 

? 9*769 

N * 9 »»«*=» SUM • 7461 



825 866 817 858 809 850 801 842 79 3 

794 826 867 8 18 859 8 10 851 802 8 34 

835 795 827 868 8 19 8 60 811 843 803 

804 836 796 828 869 820 852 8 12 844 

845 805 837 79 7 829 861 821 853 8 13 

8 14 846 806 838 789 830 8 62 822 854 

855 815 847 798 839 790 831 863 823 

824 856 807 848 799 840 79 1 832 864 

865 8 16 857 808 849 800 84 1 79 2 833 

TYPE AN ODD NUMBER < 12 AND A RANDOM NUMBER < 800! 
? STOP 
PROGRAM STOPPED. 



100DIML(13,13) 

110GOSUB340 

120 GO TO 110 

130 PRINT 

140 DEF FNA(N,P,L) 

150K = P 

160J = INT((N+l)/2) 

170I = J + 1 

180M = 1 

190L(I,J) = K 

200K = K+1 

210M = M + 1 

220 IF K = N*N + P THEN 320 

230 IF M<=N THEN 270 

2401 = 1 + 2 

250IFI>NTHENI = I-N 

260 GO TO 180 

2701 = 1 + 1 

280J = J + 1 

290IFI>NTHENI = I-N 

300IFJ>NTHENJ = J-N 



3 10 GO TO 190 

320FNA = ((N*N + 2*P-l)*N)/2 

330 FNEND 

340 PRINT 

350 PRINT TYPE AN ODD NUMBER < 12 AND A RANDOM NUMBER < 800!' 

360 INPUT N,P 

370N = MIN(11,MAX(3,N)) 

380 P = MAX(1 ,MIN(799,P)) 

390S = FNA(N,P,L) 

400 PRINT 'N = ';N,' = = = = SUM = ';S 

410 PRINT 

420 FOR 1 = 1 TON 

430 PRINT 

440 PRINT 

450 FOR J = l TON 

460 PRINT TAB(5*J-2.001-LGT(L(I, J)));L(I, J); 

470 NEXT J 

490 NEXT I 

500 PRINT 

510 RETURN 

520 END 



ANALYSIS 

The best way to follow this program is to trace a given route 
with a certain input. 

The multiple line DEF from 140 to 330 actually generates 
the elements of the square. It uses the variable P entered by 
the user to initialize the array. The sum will depend on the 
choice of P. The important statement in the upper portion is 
line 320. 

Only odd numbered arrays are produced. Line 460 assures 
that the array will be square and in a column oriented format. 

Trace the program a couple of times to get the feel of the 
algorithm. 
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B5 



Perpetual Calendar 



Write a program to compute the day of the week a given 
date occurred. Input should include the month, day and 
year in any order you specify. You need not input the 
month alphanumerically. 

Many useful algorithms have been developed to serve as 
perpetual calendars. Some research is required on your 
part. 

Set an upper and lower limit on the years. Remember 
Pope Gregory gave us our current calendar sometime 
during the fifteenth century. Things were really mixed 
up before then. 



today is 



JANUARY 

2 

MONDAY 



References: 

Kemeny and Kurtz, BASIC Programming, p. 36. 

W. Ball, Mathematical Recreations and Essays, p. 

449. 

Aaron Bakst, Mathematical Puzzles and Pastimes, 

pp. 84-96. 

Martin Gardner, Mathematical Games, Scientific 
American, May 1967. 
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I AM A PERPETUAL CALENDAR 



I WILL CALCULATE THE DAY OF THE 
TRANSPI RED, I F 61 VEN THE DATE ! f 



WEEK AN EVENT 



USE THE CHART BELOW FOR MONTH NUMBERS 

JAN-1 FEB- 4 MAR- 4 APR-0 MAY- 2 JlW-5 

*jUL-0 AUG- 3 SEP- 6 OCT- 1 NOV- 4 DEC- 6 

FOR JAN AND FEB OF LEAP YEARS GO BACK ONE DAY 

FOR DATES IN THE 1800 9 S GO AHEAD TWO DAYS 

INPUT THE MONTH, DAY AND YEAR AND HIT RETURN 

? 0, 12, 19 73 

SOCK IT TO THURSDAY 

INPUT THE MONTH, DAY AND YEAR AND HIT RETURN 
? 3, 1 7, 19 68 

HAPPENED ON A WEEKEND - SATURDAY TO BE EXACT I 
INPUT THE MONTH, DAY 
? 3,29, 1946 
SOCK IT TO THURSDAY 
INPUT THE MONTH, DAY 
? STOP 
PROGRAM STOPPED. 



AND YEAR AND HIT RETURN 



AND YEAR AND HIT RETURN 



10 PRINT 'I AM A PERPETUAL CALENDAR' 

20 PRINT 

30 PRINT 'I WILL CALCULATE THE DAY OF THE WEEK AN EVENT' 

40 PRINT 'TRANSPIRED, IF GIVEN THE DATE! !' 

50 PRINT 

60 PRINT 'USE THE CHART BELOW FOR MONTH NUMBERS' 

70 PRINT 

75 PRINT 'JAN-1 FEB-4 MAR-4 APR-0 MAY-2 JUN-5' 

80 PRINT 'JUL-0 AUG-3 SEP-6 OCT-1 NOV-4 DEC-6' 

81 PRINT FOR JAN AND FEB OF LEAP YEARS GO BACK ONE DAY' 

82 PRINT 'FOR DATES IN THE 1800"S GO AHEAD TWO DAYS' 
85 PRINT 

90 PRINT 

91 PRINT 'INPUT THE MONTH,DAY AND YEAR AND HIT RETURN' 
95 INPUT A,B,C 

100 IF C< 1900 THEN* + 2 

110GOTO* + 2 

120LETC = C+100 

1 30 LET Y = INT((C- 1 900)/ 1 2) 

140LETX = (C-1900)-(Y*12) 

150LETZ = INT(X/4) 

1 60 LET W = INT((X + Y + Z)/7) 

170LETT = (X + Y + Z)-(7*W) 

180LETU = T + A 

190LETV = INT(U/7) 

200LETS = U-(7*V) 

210LETR = S + B 

220LETP = INT(R/7) 

230LETO = R-(7*P) 

240 IF = THEN* + 2 

250 ON O GO TO 300,302,304,306,308,310 

260 PRINT HAPPENED ON A WEEKEND - SATURDAY TO BE EXACT!' 

270 GO TO 90 

300 PRINT 'THE DAY WAS A SUNDAY' 

301 GO TO 90 

302 PRINT 'MONDAY"S THE DAY!' 

303 GO TO 90 

304 PRINT 'WOULD YOU BELIEVE A TUESDAY' 

305 GO TO 90 

306 PRINT 'WEDNESDAYS GUILTY' 

307 GO TO 90 

308 PRINT 'SOCK IT TO THURSDAY' 

309 GO TO 90 

3 1 PRINT 'THANK GOD IT WAS A FRIDAY ! ! ' 
320 GO TO 90 

400 END 
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INPUT MONTH* DAY* YEAR IN NUMERIC FORM 
? 1* 18* 1975 

THE DAY OF THE WEEK WAS COR WILL BE) SATURDAY 



ANYTHING ELSE (YES OR NO)? YES 

INPUT MONTH* DAY* YEAR IN NUMERIC FORM 

? 8* 17* 1968 

THE DAY OF THE WEEK WAS COR WILL' BE) SATURDAY 



ANYTHING ELSE CYES OR NO)? YES 

INPUT MONTH* DAY* YEAR IN NUMERIC FORM, 

? 8* 29* 1946 

THE DAY OF THE WEEK WAS COR WILL BE) THURSDAY 



ANYTHING ELSE CYES OR NO)? YES 

INPUT MONTH* DAY* YEAR IN NUMERIC FORM 

? 2*3* 1967 

THE DAY OF THE WEEK WAS COR WILL BE) FRIDAY 



ANYTHING ELSE CYES OR NO)? NO 



5 DIM CSC6)=9 

10 FOR K=0 TO 6 

20 READ CSCK) 

30 NEXT K 

40 nRINT "INPUT M.QNTH* DAY* YEAR IN NUMERIC FORM" 

50 INPUT M* D*Y 

55 PRINT 

60 LET L=0 

70 LET Xl=INTCCY-l)/4) 

80 LET X2=INTCCY-1)/100) 

90 LET X3=INTCCY-1 )/400) 

100 IF INTCY/400)=Y/400* THEN L=l 

110 IF INTCY/4)#Y/4 THEN 120 

115 IF INTCY/100)#Y/100 THEN L=l 

120 LET T=CM-1)*31 

130 IF M>9 THEN T = T-6 

140 IF M<=6 THEN 150 
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145 IF M<=9 THEN T=T-5 

1 50 IF M<=4 THEN 1 60 

155 IF M<=6 THEN T = T-4 

160 IF M< = 2 THEN 170 

165 IF M<=4 THEN T=T^3 

170 LET K=T+L+Y+D+X1-X2+X3 

180 LET V=K-CINT(K/7)*7) 

190 PRINT "THE DAY OF THE WEEK WAS COR WILL BE) "JCSCV) 

193 PRINT 

197 PRINT 

200 PRINT "ANYTHING ELSE (YES OR NO)"; 

210 INPUT AS 

220 IF A$="YES" THEN 40 

230 DATA SATURDAY, SUNDAY, MONDAY, TUESDAY, WEDNESDAY, THURSDAY, FRI DAY 

240 END 



ANALYSIS 

There are many algorithms for calendar computation. The 
one presented here is by no means the most powerful. It has 
limitations with respect to leap years and centuries previous to 
the twentieth. 

The program works as follows: consider the date July 19, 
1973. The algorithm takes only the 73 (line 130), then takes the 
quotient when 73 is divided by 12. This would give 6 which is 
stored in Y. The remainder is 1 and is stored in X. Then the 
quotient of X divided by 4 is retained as Z, and the three X, Y 
and Z are summed. The remainder modulo 7 is retained from 
this sum and added to the month number from the table. For 
July it is 0. The remainder in this case would be when X, Y 
and Z are divided by 7. This is added to the month number to 
give 0. The remainder modulo 7 is taken again giving 0. The 
day is added to that giving 19 in this example. This result is 
taken modulo 7 again giving 5 which corresponds to Thurs- 
day. That is the correct day. The days run from Saturday 
which is through Friday which is 6. 

A command MOD(X,Y) would shorten this program. It is 
not available in all versions of BASIC. It returns the re- 
mainder after Xis divided by Y. 

The month numbers selected (lines 75 and 80) were based 
upon an algorithm described in Martin Gardner's column as 
given in the references with the problem description. It ap- 
peared in May 1967 on page 136. 

A second program using a different algorithm is included for 
the reader's convenience. 
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5E. 



Arithmetic Sequences of Primes 



The challenge to find an arithmetic progression contain- 
ing exactly one-hundred terms, all of them distinct 
primes has so far eluded mathematicians. 

The longest at this writing consists of only twelve terms 
with the initial term 23143 and a difference of 30030. It 
was discovered by W. A. Golubiev. 

It would not be necessary here to break the record of 
twelve. Just find another sequence with at least seven 
terms, all of which are distinct primes. The March 1964 
issue of Scientific American has a column about pat- 
terns in primes which may be helpful. 




References: 

W. Sierpinski, Some Unsolved Problems of 
Arithmetic, Twenty-eighth Yearbook of the NCTM, p. 
211. 

Robert Wisner, A Panorama of Numbers, pp. 

118-138. 

Albert Beiler, Recreations in the Theory of 
Numbers, pp. 39-48. 
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57 



Cullen Numbers 



Can you find numbers of the form: 

/i.2"+ 1 

called Cullen numbers where a value f or n > 1 produces 
a prime. Very recently it was shown that the least such 
prime was for n = 141 . 

Not only would you have to develop an algorithm to 
compute the exact digits of the number but you would 
also have to test its primeness. This is not a trivial mat- 
ter when numbers become as large as 2 141 . 




References: 

W. Sierpinski, Some Unsolved Problems of 
Arithmetic, Twenty-eighth Yearbook of the NCTM, p. 
211. 

Ibid., pp. 34-45. 

Robert Wisner, A Panorama of Numbers, pp. 

118-138. 
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SB 



The Exact Digits of N Factorial 



TV factorial, usually written TV/may be defined as the 
product of the first AT integers. 

The beginning of a table for N factorial would look like 
this: 

N TV factorial 

1 1 

2 2 

3 6 

4 24 

5 120 

6 720 

7 5040 

8 40320 

9 362880 
10 3628800 

The problem is to carry this table out to 40 factorial, 
while still retaining all digits of accuracy. N! increases 
quite rapidly as TV grows larger. A single variable in 
your program will not be able to contain all the digits. 

You will have to devise a scheme to store the digits of N! 
in an array, one or two digits per element of the array. 
Then you will have to come up with a way of multiply- 
ing this array which represents a single large integer by 
N+ 1 to obtain the next factorial. 

Continue your table up to 40!, or until one line of out- 
put is filled, whichever comes first. The following rela- 
tionship may prove helpful, it is called Stirling's 
Approximation: 



yj2mc(n/e) n < n! < yf2NTr(n/e) n 'l + 



yin-lf 



where tt = 3.14159265.... and e = 2.71828. 



Reference: 

Steve Rogowski, Computer Clippings, pp. 8 and 171 
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? 8 

4 3 2 
? 16 

0209 22789888000 
? 35 

010333147966386144929666651337523200 




EXACTO 



100 DIM S( 1000) 

105 PRINT 'TYPE IN # TO BE FACTORIALIZED' 

108 INPUT N 

110LETS(1) = 1 

120LETM = 1 

130 LET C = 1000 

140FORX = 1TON 

150GOSUB200 

155 NEXT X 

160 PRINT 

170 PRINT ' ' 

180 FOR Z = l TOM 

185GOSUB500 

190 NEXT Z 

195 STOP 

200 FOR 1=1 TOM 

210GOSUB300 

220 NEXT I 

230 FOR 1 = 1 TOM 

240 GOSUB 400 

250 NEXT I 

260 RETURN 

300LETS(I) = S(I)*X 

310IFI + 1-M<=0THEN370 

330LETI = M+1 

370 RETURN 

400IFS(I)-C<0THEN47O 

410LETZ = INT(S(I)/C) 

420LETS(I) = S(I)-C*Z 

425LETS(I + 1) = S(I + 1) + Z 

430IFI-M<0THEN470 

440 LET M = 1 + 1 

470 RETURN 

500LETI = M+1-Z 

505 LET L = 2 

510 IF (7*INT(Z/7-Z))< THEN 520 

515LETL = 1 

520 FOR J = l TO 3 

530 GOSUB 600 

540 NEXT J 

550 RETURN 

600 LET X = INT(S(I)/10t(3-J)) 

620 PRINT X; 

630 LET S(I) = S(I)-10t (3-J)*X 

640 RETURN 

700 END 
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1 

2 
6 
24 
120 
720 
5040 
40320 
9 362880 

10 3628800 

11 39916800 

12 479001600 

13 6227020800 

14 87178291200 

15 1307674368000 

16 20922789888000 

17 355687428096000 

18 6402373705728000 

19 121645100408832000 

20 2432902008176640000 

21 51090942171709440000 

22 1 124000727777607680000 

23 25852016738884976640000 

24 62044840 17 332 394393 60000 

25 15511210043330985984000000 

26 40 3291461 12660 563 5584000000 

27 10888869450418352160768000000 

28 304888 344 61 17 138 60 501504000000 

29 884176199 373970 19 54543 616000000 

30 2652528598 12 19 1058 636308 480000000 

31 8 22 28 38 65417 79 228 17 72 55 6288 00 00 00 

32 2 631308 369 3369 3530167 2180 121600 00 00 

33 8 68 331761881 188649 5518 194401280000000 

34 29 52 32799039 60 41408 47 618 609 643 520000000 

35 10 3331479 6 638 61449 29 6666 51 337 52320000000 

36 37 199 33267899012174679 99448 1508 35200000 000 

37 137 637 5309 122 634504 631 59 79 581 5809 02400000 00 

38 523022617466601 1 1 176000722410007429 1200000000 

39 20397882081 197443358 640281739902897356800000000 

40 8 159152832 47897 7 3434561 1269 59 61 1589 4272000000000 

41 3 34 5252 6613163807108 1700 620 534407 5166 5152000000000 

42 140 500 61 177 52879898 543142 60 6244 51 15 6993 63840000 00 000 

43 60 4152630 6337 38 3 5637 3 551320 68 513997 507 264 512000000000 
THOSE ARE THE FACTORIALS FROM 1 TO 43 . 
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10 REM FACTORIALS II 

20 REM FRED PERILLO 

30DIMN(55),M(55) 

40LETI = K = 1 

50LETK6 = 6 

70MATN = ZER 

80MATM = ZER 

100N(0) = 55 

105M(0) = 55 

110FORJ2 = 1T0 55 

130N(J2) = N(J2)*I + K 

140K = INP(N(J2)/10) 

150N(J2) = N(J2)-(K*10) 

160NEXTJ2 

170IFN(55)>0THEN450 

180 J3 = 55 

190FORK2= 1T0 55 

200M(K2) = N(J3) 

210 J3 = J3-1 

220 NEXT K2 

230FORK4= 1T0 55 

240 IF M(K4) <> THEN 255 

250 NEXT K4 

255FORM9= 1TOK4-1 

270M(M9) = 5 

280 NEXT M9 

290FORM8 = K4TO55 

300M(M8) = M(M8) + 48 

310 NEXT M8 

320 CHANGE M TONS 

330 PRINT TAB(K6);I;N$ 

4001 = 1 + 1 

410 IF I> 9 THEN 430 

420 GO TO 1 10 

430K6 = 5 

440 GO TO 110 

4501 = 1-1 

460 PRINT THESE ARE THE FACTORIALS FROM 1 TO';I 

999 END 



ANALYSIS 

The problem of truncation can be avoided by using base 
1000 arithmetic. 

The factorial is generated from 1 up until the partial pro- 
duct exceeds 1000. At that point the number is converted into 
its remainder modulo 1000. This is done in lines 410 and 420. 

The 600 subroutine converts back to base 10 before the prin- 
ting is done in line 620. The reader is invited to trace the pro- 
gram for N larger than 10 or so. That way he may gain some 
insight into the mechanism of the incrementation once base 
1000 has been pulled into the algorithm. 

The limit on this program is about 200!. It could be increas- 
ed with the choice of a larger base. 

A second program is also supplied which uses a slightly 
different algorithm and formats the output a bit differently. 
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51 



Coin Flipper Simulator 



Write a program to flip a coin any specified number of 
times. 

Have the computer print out the actual result of each 
flip; that is, H when the coin comes up heads and T 
when it lands tails. A semicolon in your print statement 
will allow many entries per line. 

Have the computer keep track of the tosses and print 
out after the run how many heads were tossed. Finally 
print out the ratio of heads to total tosses. It should be 
very close to .5 for a large number of tosses, if the pro- 
gram uses a fair coin. 




References: 

Steve Rogowski, Computer Clippings, p. 48. 
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HOW MANY FLIPS 
? 45 

HTHHTHHTTHTTHTTTHTTTTHTTHHTHTTHHTTTTTTHTHHHTT 
18 HEADS IN 45 FLIPS! 

HOW MANY FLIPS 
? 100 

TTTTHHHHTHHTHHHTHHTTHHTHHTHHTHHTTHTHTTTTTHTTTHHHTHHTHHHTTHTHHTTTTHTHTTHH 

HHTHHTHTTTHHTHHTHHHHTHHTHTTH 
54 HEADS IN 100 FLIPS! 

HOW MANY FLIPS 
? 500 

THTTHHTTHTHHHHHHHHTHHHHHTHHTTHHTTHTTHTHHHTTTHTHHTHTHTTHTTHTTTHHTTHHTTHTT 

HHHHHTTHTTTHTTTHHHTTHHTHHHHTTTHTTTHTHHHHHHHHTHTTHTTTHTHTHTTTHTTHHTTHTHHT 

HHTHTHHTTHHHTTTTTHHHHHHTHHHTTHTHTTHTHTTTTTHTHHHTTTHTHHHTTHTHHHTTHTHHHTTH 

HHHHTTTTHTTHHHTTTTHTTTTTTHHTTTTHTHHTTTHHHHTHHHHHHHTTHHTTHHHTHTTTTTHHHTHH 

THTTHTTTHHTTHHHTHHTHHHTTTTHHHHTTTTHTHTTHTHHTTTTHHHHHTHTTHTTTHTHHTHHHTHH 

HTTHTHHHTHTTHTTHTTTHHTTTTHTHHHHHHHTHHTHHHTTHHTHTTTHTHHHTHHTTHHHTHTHTHTTH 

TTHHTTHHHTHTHHTHTHTTTHHHHTHTHTTTTTHTTHTHTHTHHHTHTTTHHTTTTTHTHHHTHTHT 
856 HEADS IN 500 FLIPS! 

HOW MANY FLIPS 
? STOP 
PROGRAM STOPPED. 



10 PRINT'HOW MANY FLIPS' 

20 INPUT N 

30LETC = 

40FORX = 1TON 

50LETF = INT(2*RND) 

60 IF F = l THEN 80 

70 PRINT "T; 

75 GO TO 100 

80LETC = C+1 

90 PRINT H'; 

100 NEXT X 

110 PRINT 

120 PRINT C;' HEADS IN ;N;' FLIPS!' 

125 PRINT 

130 GO TO 10 

200 END 



ANALYSIS 

This program is a useful simulation problem in elementary 
probability. It is valuable at most any grade level. Line 50 
generates either a or a 1 . If is generated, the program prints 
a T for tails and then flips again. If a 1 is generated it in- 
crements the heads counter in line 80 and prints an H. 

When the limit set by the user is reached it prints the total 
heads and the total flips and then asks for another run. 

The program could be expanded or just used as is to study 
the frequency and likelihood of repeated patterns. 
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E.D 



The Old License Plate Trick 



Suppose you agreed, as you were traveling along in your 
car, to write down the last two digits of the license plates 
of the next twenty cars to go by you. 

One would have to agree that cars pass by completely at 
random in most situations, at least as far as the number- 
ing on their plates in concerned. What do you think the 
chances are that in that group of twenty two-digit 
numbers, two of them will be the same? Remember 
there are 100 possible numbers from 00 to 99. You are 
going to record only the last two digits, not the whole 
plate number, and that only for the first twenty cars to 
goby. 

Write a computer program to simulate the passage of 



this traffic. Then compute the probability that there will 
be a matching number in your list. As you generate 
license numbers at random, check them against others 
in your list until you have a match or until you've reach- 
ed twenty cars. You can use two letters and four digits 
or three of each. It won't affect the computation of the 
probability. Generate random numbers and then use 
whatever BASIC function converts from internal code 
to character representation (CHR$, CHANGE, etc.). 

Check your list for matches and compare these values to 
the computed values from your table. That is, verify 
that the chance for twenty cars producing a list of plates 
with a matching two-digit number is indeed almost 0.87. 




NEW YORK »^"?£ 



References: 

Fred Mosteller, Probability and Statistics. 

Henry Adler, Introduction to Probability and 
Statistics, pp. 60-67. 



CAPS 


PROBAB 


CAPS 


PROBAB 


1 





16 


.718402 


2 


9.99892E-03 


17 


.763456 


3 


2.97989E-02 


18 


.80367 


4 


5.89042E-02 


19 


.839008 


5 


9.65472E-02 


2.0 


.869597 


6 


. 141716 


21. 


.895676 


7 


. 193209 


22 


.917584 


8 


.249684 


23 


.935716 


9 


.30971 


24 


.950501 


10 


.371838 


25 


.96238 


1 1 


.434651 


26 


.971785 


12 


.49 68 38 


27 


.979121 


13 


.55722 


28 


.984758 


14 


.614777 


29 


.989026 


15 


.668712 


30 


.992209 




10 PRINT 'CARS'.'PROBAB' 

20 PRINT 

30 FOR N=l TO 30 

40LETZ = 

50FORX = 1TON 

60 LET T = LOG(100-(X-1)) 

70LETZ = Z + T 

80 NEXT X 

90LETR = N*LOG(100) 

100LETY=EXP(Z-R) 

110 PRINT N.l-Y 

120 NEXT N 

200 END 
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ANALYSIS 

The output here is astounding to the amateur gambler. Only 
13 cars are needed to make the outcome of the event more like- 
ly than not. With twenty cars the odds are a bettor's dream 
with almost 9 out of 10 tries producing the desired result. 

The computation was done using the reasoning that the pro- 
duct of the probabilities for independent events will give the 
probability of all of them occuring. For the first car there is no 
chance that a match can occur. For the second car the pro- 
bability is: 

1- (100/100). (99/100) 

since there are only 99 numbers left that will produce no 
match. When the third car travels by only 98 numbers remain 
which will produce no match. Hence the probability of a 



match increases as the right hand term of the expression below 
decreases: 

1 -(100/100).(99/100).(98/100) 

The numerator is really 100-(x-l) where x is the number of 
cars. The denominator is 100 to the power x. 

The computation was done using logarithms in lines 60 and 
90. That way addition could be used and the incremented 
values would be more accurate than if partial products were 
accumulated. These are not logs to the base 10— although they 
would have worked fine— but rather natural logs (to the base 
e). Therefore the antilog and the subtraction of the logs to 
represent division are done in line 100 by raising the base e to 
the power of the log. It remains only to subtract the result 
from 1, since the probability which has been generated is that 
for no match. This is done in line 1 10. 



ZJ 


49 14 


WH 


9253 


w 


2388 


XG 


3 547 


SF 


7576 


IH 


8 659 


RK 


28 13 


MP 


1785 


TY 


8456 


EL 


1939 


LG 


6919 


EG 


0823 


FZ 


7979 


YK 


8806 


m 


3626 


FB 


2358 


PS 


9091 


QB 


8216 


IG 


3207 


HY 


8586 



100 RANDOMIZE 

1 10 DIM A(50),A$(50) 

120LETA(0) = 7 

130FORX = lTO10 

140 FOR XI = 1 TO 2 

150LETA(l) = INT(25*RND) + 6 

1 60 LET A(2) = INT(25 *RND) + 6 

170LETA(3) = 5 

180 FOR Y = 4 TO 7 

190LETA(Y) = INT(RND*10) + 48 

200 NEXT Y 

210 CHANGE A TO AS 

220 PRINT A$, 

230 NEXT XI 

240 PRINT 

250 NEXT X 

260 END 



ANALYSIS 

This program simply generates a random list of twenty 
license plates. It generates random numbers between 65 and 
90. These are the coded equivalents of the letters A through Z. 
Statements 150 and 160 generate the first two letters. State- 
ment 170 assigns a blank to the third position in the plate 
field. The code for a blank on our system is 32, it may vary 
from system to system, as will the method for converting these 
numbers to their character representation. The Appendix lists 
the values for each character. 

The loop from 180 to 200 generates numbers from 48 to 57 
which are the coded equivalents of the digits through 9. Four 
such digits are generated. The entire seven digit field specified 
in line 120 is converted into a string in loop 210. The actual 
printing is done by statement 224 which is still within the loop. 
The comma causes the cylinder to remain on that print line, so 
that two strings are printed ten times— loop from 130 to 250. 

It has been left as an exercise for the reader to expand the 
program to not only generate the list but also to check it for a 
match in the last two places and then keep track of the results. 
See my book Computer Clippings for a more elaborate treat- 
ment of this problem. It is very similar to the Birthday 
Problem mentioned elsewhere in this volume. 
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E.i 



The Telephone Book Problem 



A telephone number has seven digits. The first two are 
usually limited in a given area to a specified pair or two. 
Let's consider only the last five digits for this problem. 

Compute the probability that in this five digit number, 
at least two of the digits match. Remember, any one of 
ten digits could fall in those five places. There are a total 
of 100,000 numbers which could occur. Compute how 
many permutations of ten digits will be needed to fill the 
five spots. Divide this by 100,000 to get the probability 
that no match has occured. 

Write a computer program to generate five digit 
numbers at random. Devise a routine to test their digits 
for a match. If no match occurs call it a Lola. Print out 
the number of Lolas generated for a given set of five 
digit numbers. Compute what percentage of the total 
count were Lolas. Compare this with the computed pro- 
bability. Which is more likely, a phone number with five 
distinct digits or one with at least a matching set of 
digits? 



Zoerner L !7ConslRdClne 869-6607 

Zoll William L Beverwyck Latham --785-5232 
Zoller Albert J Jr lOCarolneLathm 785-7089 
Zoller Albert J Sr JohnPTaylorApts 274-4325 

Zoller Jos J SnydersLake 283-1368 

Zoltanski Joseph 

HDeerpathDrClne--869-3713 

ZonitchJD 800-19thWvlt 274-1420 

ZonitchJohn 20BrentwdAv 273-7242 

Zonitch Mary Mrs 47CraigWvlt —273-5575 

Zordan L J 6-9thWfd 237-5187 

ZordanMJ l2-9thWfd 237-2541 

ZorellaA 2316-9thAvWvlt 274-0455 

Zorian Gregory T 397-4thAvNTy -235-5322 
Zorian Mary A Miss 

1802-7thAvWvlt~ -271-8229 



References: 

Fred Mosteller, Probability and Statistics. 

Henry Adler, Introduction to Probability and 
Statistics. 
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TELEPHONE BOOK PROBLEM! 

HOW MANY TRIALS! 

? 100 

IN 100 TRIALS THERE WERE 25 LOLAS! 

P(LOLA) » .25 

ANY MORE TO DO 
? YES 

HOW MANY TRIALS! 

? 500 

IN 500 TRIALS THERE WERE 137 LOLAS! 

P(LOLA) a .274 

ANY MORE TO DO 
? YES 

HOW MANY TRIALS! 

? 1000 

IN 1000 TRIALS THERE WERE 315 LOLAS! 

P(LOLA) * *315 

ANY MORE TO DO 
? 5000 



ANALYSIS 



lOOPRINT'TELEPHONE BOOK PROBLEM!' 

110 PRINT 

120 PRINT HOW MANY TRIALS!' 

130 INPUT N 

140 RANDOMIZE 

150LETS = 

160FORW = 1TON 

170 FOR X = l TO 5 

180 LET Y(X) = INT(10*RND(-1)) 

190 NEXT X 

200FORX = lTO5 

210FORB = X + lTO5 

220 IF Y(X) = Y(B) THEN 260 

230 NEXT B 

240 NEXT X 

250LETS = S + 1 

260 NEXT W 

270 PRINT IN ;N;' TRIALS THERE WERE ;S;' LOLAS!' 

280 PRINT 'P(LOLA) = ';S/N 

290 PRINT 

300 PRINT ANY MORE TO DO' 

310 INPUT A$ 

320 IF A$ = 'YES' THEN 1 10 

330 END 



The problem at hand is really how many numbers with five 
digits, and there are 100,000 of them— 00000 to 99999— have 
digits which do not repeat. 

The computation is equivalent to finding the number of per- 
mutations of ten digits into five places, i.e., ten things taken 
five at a time. That number is 30,240. The probability of no 
digit match is therefore, 30,240/100,000 or 0.3024. 

In terms of the simulation, we are really generating 
telephone numbers from the last five digits in our random 
number generator in line 180. The loop in 200 through 240 
checks for matching digits. 

The crux of the problem is that there is almost a 70% chance 
of finding a five-digit telephone number in which, at least one 
number matches. The prefixes are avoided for obvious 
reasons. This can also be done with the four digits in a license 
plate number. 

There are a myriad of options on this topic. Notice in the 
output that it took as many as 1000 trials to produce a 
reasonable value for the probability. 
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EiE 



Generating ir 
Using Random Numbers on a Circle 



The area of a circle is Trr 2 . The area of a quadrant of a 
unit circle (r= 1) is one-fourth of irr*. 

Suppose we place that quadrant within a square as 
shown below. The area of the square is 1 , while the area 
of the quadrant is less than 1 and equal to l A x tit 2 . If we 
were to generate points at random, so that every point 
fell within the confines of the square but sometimes 
within and sometimes without the quadrant of the cir- 
cle, we would expect the frequency of each to be related 
to the ratio of their areas. If this random generation in- 
volved a large enough sample, the number of points fall- 
ing within the quadrant as compared to the total 
generated would tend to equal the ratio of the area of 
the quadrant to the area of the square. 

Derive an expression for that ratio. Certainly, it con- 
tains ir. Program the computer to generate ordered pairs 
of coordinates at random. You will need to test whether 
the points are inside the quadrant. Count on the circle as 
within it. Vary the size of the sample. You should be 
able to approximate ir with the value which you obtain. 




(0,1) 



(i,i) 




(0,0) 



(1,0) 



118 



GENERATION OF PI EW RANDOM NUMBERS 

HOW MANY TRIALS 

? 100 

FOR 100 TRIALS PI » 3* 16 



HOW MANY TRIALS 

? 500 

FOR 500 TRIALS PI ■ 3« 240 



HOW MANY TRIALS 

? 1000 

FOR 1000 TRIALS 



PI « 3*0640 



HOW MANY TRIALS 

? 5000 

FOR 5000 TRIALS PI * 3*1520 



HOW MANY TRIALS 

? 10000 

FOR 10000 TRIALS PI 



3* 18240 



HOW MANY TRIALS 
? STOP 
PROGRAM STOPPED* 



ANALYSIS 



05 RANDOMIZE 

10 PRINT 'GENERATION OF PI BY RANDOM NUMBERS' 

20 PRINT 

30 PRINT 'HOW MANY TRIALS' 

40 INPUT N 

45LETA = B = 

50FORZ = 1TON 

60LETX = RND(-1) 

65LETY = RND(7) 

70IFXt2 + Yt2>lTHEN90 

75LETA = A+1 

80 GO TO 1 10 

90LETB = B + 1 

110 NEXT Z 

115 PRINT A;' SUCCESSES' 

120LETP = A/(A + B) 

130 PRINT 'FOR ';N;' TRIALS PI = ';4*P 

135 PRINT 

140 PRINT 

145 GO TO 20 

200 END 



Lines 60 and 65 generate the coordinates of a random point. 
The arguments of the RND function mean nothing on our 
computer system but on some systems they may be used to 
seed the starting point of the random number sequence. 

Line 70 checks to see if the pair is within the quadrant of the 
circle. On the circle is considered inside for the purposes of 
this program. If the pair does fall within the sector, A is in- 
cremented by 1. The total number of points falling within or 
on the circle should be in the same ratio with the total points 
generated as the ratios of the areas of the two figures. This is 
7r/4 to 1 since we chose a unit circle with area ir. The ratio of 
the points should therefore be the same. Multiply the percen- 
tage of hits by 4 to get an approximation to tt. 

This multiplication is done in line 130 and the program is 
recycled. Notice the poor approximations which are produced. 
A large sample is required to produce even a small number of 
places for ir. No wonder mathematicians have found this dart 
tossing technique inferior to the computation by arctangent 
series. 
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Ed 



The Famous Buffon Needle Problem 



A series of parallel lines are ruled on a surface. The 
distance between the lines is equal. A needle, whose 
length is equal to the distance between the lines is drop- 
ped onto the surface. The probability that the needle 
crosses a line, rather than lies entirely within a space is 
2/tt. 

This has a number of interesting ramifications. It means 
that we can estimate -k with a series of random oc- 
currences. Dropping the needle a considerable number 
of times should produce say x crossings. This will mean 
that x = 2/-K. So it is an approximation to 2/x. 

The horizontal position of the needle is immaterial. All 
lines are identical. The following diagram may help you 
set the problem up. It shows the result of a represen- 
tative toss: 




Note: Needle length is exaggerated for clarity. 



A random number y is chosen between and 1 , since we 
took the spacing of the lines as one unit. Then A is 
chosen as a random angle between -90° and +90°, that 
is between -7r/2 and + ir/2 radians. 

Yl and Y2 are determined by trigonometry. If the in- 
teger parts of Yl and Y2 are different then the needle 
has crossed the line. If the integer parts are the same 
then the needle lies entirely within the space. 

Write a program to simulate the dropping of a needle. 
Determine whether the needle crosses a line and keep 
track of the number of times it does. See how close an 
approximation to ir this produces. 

References: 

Kemeny and Kurtz, BASIC Programming, p. 68. 

Heinrich Dorrie, 100 Great Problems of Elementary 
Mathematics, pp. 73-75. 
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HOW MANY TRIALS 

? 100 

THERE WERE 64 CROSSINGS IN 100 

PERCENT CROSSINGS WAS 63.999999 

PI IS APPROX = 3. 125 



TRIALS! 
% 



WANT TO TRY AGAIN 

? YES 

HOW MANY TRIALS 

? 500 

THERE WERE 314 CROSSINGS IN 500 TRIALS! 

PERCENT CROSSINGS WAS 62.80 % 

PI IS APPROX « 3.1847134 

WANT TO TRY AGAIN 

? YES 

HOW MANY TRIALS 

? 1000 

THERE WERE 643 CROSSINGS IN 1000 TRIALS! 

PERCENT CROSSINGS WAS 64.299999 X 

PI IS APPROX * 3.1104199 

WANT TO TRY AGAIN 
? NOT REALLY 



10 PRINT HOW MANY TRIALS' 

20 INPUT N 

30 RANDOMIZE 

40 LET R = 57.295779 

50LETS = 

60FORT=1TON 

70LETY = RND(-1) 

80LETX = RND(-2) 

90LETZ = SGN(X-.5) 

100LETA = Z*(90*RND(-3))/R 

110LETYl=Y-COS(A)/2 

1 20 LET Y2 = Y + COS(A)/2 

1 30 IF INT(Y 1 ) = INT(Y2) THEN 1 50 

140LETS = S + 1 

150 NEXT T 

160LETF = S/N 

170 PRINT 'THERE WERE ';S;' CROSSINGS IN ';N;' TRIALS!' 

180 PRINT 'PERCENT CROSSINGS WAS ';100*F;' %' 

190 PRINT 'PI IS APPROX = ';2/F 

200 PRINT 

210 PRINT 'WANT TO TRY AGAIN' 

220 INPUT A$ 

230 IF A$ = 'YES' THEN 10 

300 END 



ANALYSIS 

The first item to notice is that the value of ir is quite 
unreliable even with a large number of trials. Only a large 
number of tosses can stabilize the value computed. 

Line 40 in the program sets up the change of degrees to ra- 
dians. Line 100 generates the angle between -90° and +90°. 
Lines 110 and 120 determine where the center of the needle 
falls relative to the space between the lines. Remember the nee- 
dle is the same length as the spacing between the lines. 

Line 130 tests for a crossing. Line 160 computes the crossing 
ratio and line 190 converts to -/r. The value of Y is the distance 
of the center of the needle from a line. In line 1 10 the cosine is 
divided by 2 because the needle has a length of 1 with half of it 
to the left of center. The right triangle relationships from the 
previous diagram help establish this more clearly. 
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E.U 



The Matching Birthday Problem 



What is the probability that in a group of thirty people 
at least two have the same birthday? If you trust your 
intuition on this problem one would probably guess that 
it was remote. 

Most people are surprised to find that there is a 70% 
chance of two people having a matching birthday in a 
random group of 30 people. 

Derive an expression to compute the probability when 
the size of the group varies. Have the computer produce 
a table showing the probabilities for from 1 to 40 peo- 
ple. The formula will involve the product of the pro- 
babilities for each successive person. 

Once you've generated the table and confirmed the 70% 
figure, you can verify it experimentally. You could inter- 
rogate a large number of groups of people and then 
record your successes and failures. You should be suc- 
cessful 70% of the time for a large number of trials. 



With the computer, however, we can use random 
numbers to simulate these events. Generate random 
numbers between 1 and 365. Let these represent a day of 
the year. In any group of 30 successive random numbers 
the probability that two of them are the same is almost 
0.70. Once you've generated the 30 numbers test that 
group for a match. If successful increment the success 
parameter by 1 . For a large number of simulations the 
number of successes divided by the total number of 
trials should just about equal the tabular probability for 
that number of people. 

It's interesting to start out by letting the computer ac- 
tually print out the random numbers and to test for a 
match by hand. You'll soon realize the value of having a 
routine in the program to do that for you. 

Reference: 

Mathematics, Time-Life Books, Chapter on 
Probability. 



peopl: 

i 
2 

3 

4 

5 

6 

7 

8 

9 

10 

1 1 

12 

13 

14 

1 5 

If 

17 

18 

19 

2V 



PP: OH ABILITY 



2 . 7 38 24E-03 

8.20267E-03 

1 . 63512E-02 
2.71 3 1 2E- 02 
4. 4 59 2 E- 2 
5. 622 41 E- 02 
7.43271 E-P2 
9.461 53E-02 

. 1 1 69 37 

. 141 1 33 

.167019 

. 19 4412 

.223099 

. 25290 6 

.283612 

.31 502 

.346923 

. 379 121 

.41 144 



PEOPLE PP0PABILITY 



2 1 

2? 

2 3 
24 
25 
2 6 



29 

30 
3 1 
3 2 
3 3 
3 4 
3 5 
3 6 

3 V 
38 
39 

4 



.443692 
.475 698 
.50730 1 
.538 345 
. 568 698' 
. 598 2 48 
. 62 68 63 
. 6544 6 
. 68 09 71 
.70 63 1 6 
.7304 63 
.753354 
.7 749 73 
.795325 
.8 1439 
.832194 
.8 4 8 7 4 P. 
.664075 
.87823 
.8? 124 



10 PRINT 'PEOPLE', 

PROBABILITY' 
30 PRINT 
40 FOR N=l TO 40 
45LETZ = 
50FORX = 1TON 
60LETT = LGT(365-(X-1)) 
70LETZ = Z + T 

80 NEXT X 

90LETR = N*LGT(365) 

95LETY = 10I(Z-R) 

100 PRINT N.l-Y 

110 NEXT N 

200 END 
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292 114 241 210 186 362 312 342 157 136 212 253 126 28 1 202 
123 148 109 156 21 278 283 293 236 128 106 162 214 192 117 

152 144 267 46 213 123 328 105 185 249 328 98 111 275 135 
229 303 269 23 198 92 175 346 31 137 199 282 216 20 263 

185 327 95 365 180 364 263 313 133 149 1 341 81 210 176 
236 41 130 17 202 9 364 234 167 280 295 244 61 52 286 

99 93 3 135 148 106 125 113 198 140 183 280 227 155 313 
188 168 7 37 342 164 209 279 334 151 224 238 142 36 180 

325 64 41 11 333 40 168 153 340 327 55 69 73 336 57 

218 173 210 333 269 7 353 137 360 340 206 108 333 325 111 

242 105 331 255 61 64 259 247 254 66 82 352 118 245 105 
69 323 172 180 39 351 157 39 149 314 189 284 125 153 123 

116 138 192 229 273 196 67 299 29 1 234 129 136 242 300 21 
177 340 38 125 93 347 200 351 14 359 238 309 269 332 165 

117 267 240 22 161 183 24 68 210 28 157 15 169 240 175 
69 182 268 227 285 337 355 61 275 310 254 253 168 49 5 

105 330 18 351 97 270 24 312 185 148 105 355 350 48 224 
262 89 170 24 184 273 155 200 94 320 244 21 90 22 322 

22 336 330 133 92 241 309 63 190 106 104 123 111 185 310 
244 228 243 20 131 104 5 355 257 240 96 84 355 357 252 




02 RANDOMIZE 

05 FOR M = l TO 10 

10FORX = lTO2 

20FORY = lTO15 

30 PRINT INT(365*RND) + 1 ; 

40 NEXT Y 

45 PRINT 

50 NEXT X 

54 PRINT 

55 NEXT M 
60 END 
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189 353 55 76 332 211 109 217 
297 57 233 151 273 284 343 231 



322 342 250 251 353 230 29 
125 135 56 213 49 203 55 



353 APPEARS TWICE! 

324 359 337 251 297 257 326 11 
174 45 160 196 100 301 175 17 1 

174 APPEARS TWICE! 

279 99 275 29 260 202 331 176 
111 299 68 273 298 62 248 196 



57 243 217 210 38 163 274 
186 308 174 100 133 262 13 



265 12 241 247 46 245 325 
43 323 93 210 64 318 239 



33 240 49 321 28 202 230 295 65 289 58 304 205 320 83 
172 289 185 338 2 259 72 296 37 110 333 282 154 212 252 



289 APPEARS TWICE! 

333 101 167 92 
189 236 83 203 



152 82 223 239 157 259 137 324 344 249 221 
111 299 69 275 303 76 288 317 43 324 97 



324 APPEARS TWICE! 



02 RANDOMIZE 

04DIMZ(100) 

05 FOR M=l TO 10 

07 LET I = 1 

10FORX = lTO2 

20FORY = lTO15 

30 LET Z(I) = INT(365*RND) + 1 

35 PRINT Z(I); 

37 LET I = I + ? 

40 NEXT Y 

45 PRINT 

50 NEXT X 

54 PRINT 

60 FOR B=l TO 29 

70FORA = B+lTO30 

80 IF Z(B) = Z(A) THEN PRINT Z(B);' APPEARS TWICE!' ELSE 170 

170 NEXT A 

180 NEXT B 

190 PRINT 

195 NEXT M 

200 END 
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BIRTHDAY PROBLEM 

HOW LARGE SHALL I MAKE THE SAMPLE 
? 100 

SUCCESSES FAILURES 

61 39 

THE PROBABILITY THAT TWO BIRTHDAYS WILL MATCH 
IN A GROUP OF 30 PEOPLE IS .61 



BIRTHDAY PROBLEM 

HOW LARGE SHALL I MAKE THE SAMPLE 
? 200 

SUCCESSES FAILURES 

142 58 

THE PROBABILITY THAT TWO BIRTHDAYS WILL MATCH 
IN A GROUP OF 30 PEOPLE IS • 70999999 



05 RANDOMIZE 

10 PRINT 'ROGO' 

20 PRINT 'BIRTHDAY PROBLEM' 

30 PRINT 

40LETE = 

50LETC = 

55 PRINT 'HOW LARGE SHALL I MAKE THE SAMPLE' 

57 INPUT N 

60DIMN(30) 

70FORD = 1TON 

80FORX = lTO30 

90 LET N(X) = INT(365*RND(-1)) + 1 

100 NEXT X 

110FORB=lTO29 

120FORA = B+lTO30 

130 IF N(B) = N(A) THEN 170 

140 NEXT A 

150 NEXT B 

155LETE = E+1 

160 GO TO 180 

170LETC = C+1 

180 NEXT D 

190 PRINT 'SUCCESSES'/FAILURES' 

200 PRINT C,E 

210 PRINT 

220 PRINT 'THE PROBABILITY THAT TWO 

BIRTHDAYS WILL MATCH' 
230 PRINT 'IN A GROUP OF 30 PEOPLE IS ';C/N 
240 PRINT 
300 END 



ANALYSIS 

The first program prints out the probability table. It can be 
seen that it is more likely than not that there are at least two 
matching birthdays when the group of people is 23 or greater. 
A class with 30 students would have a 70% chance of having 
two matching birthdays. 

The table is generated employing computations with logs to 
the base 10. Using the formula: 

365* 364-363. 362.[365-(x-l)] 



1- 



365 J 



where x is the number of people in the group. 

Each term is computed separately and the partial sum is ac- 
cumulated in Z for the numerator. R is the log of the 
denominator. The subtraction and the anti-log are both done 
in line 95. 

The second program confirms the computed probabilities. 
It assumes that the problem is equivalent to finding two mat- 
ching numbers in a random group of numbers such that 
1 < n < 365. The program following the table generates 30 ran- 
dom numbers within those limits. The matches have been in- 
dicated. Out of 10 attempts, seven contain a match. Almost 
too good to be true. The reader is invited to search the lists 
where matches have not been indicated to see how time con- 
suming a process it is. 

The final program generates N sets of 30 numbers between 1 
and 365. It then checks the list for a match and counts the 
number of successes. 

The numbers are generated in the X loop at line 80. They 
are compared in nested B and A loops at 1 10 and 120. The 
variable C totals the successful matches, the variable E the 
failure to match. This searching process can be quite time con- 
suming. 
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E.5 



CorreSation Study for Two Sets of Scores 



In conjunction with linear data regression one might 
want to know how closely two sets of measurements are 
related. One might, for example, be interested in how 
the I.Q. scores and the College Board Verbal Achieve- 
ment scores correlate. 

A correlation coefficient, which is always less than 1 is 
used. The closer the number is to 1, the stronger is the 
correlation. Correlation coefficients may also be 
negative indicating either a strong or weak inverse rela- 
tionship. An example might be the number of degrees 
on the thermometer and the number of gallons of 
heating oil sold. 

In order to compute the correlation coefficient one 
needs to know the following about the sample data: 

n = the number of scores 

x_ = the arithmetic mean of the first set 

v = the arithmetic mean of the second set 

a x = the standard deviation for the first set 

a y = the standard deviation for the second set 

Once these are known the coefficient can be computed 
using the following formula: 

E(x,-*) Oi-30 



r = 



na x o y 



where r is the coefficient of correlation. 



References: 

P. Calingaert, Principles of Computation, pp. 78-80. 

A set of scores upon which you may wish to do the cor- 
relation appears in the appendix. 
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HOW MANY DATA PAIRS? 50 
PAIRED SCORES**** 



.127 


59 1 


.117 


446 


J27 


538 


120 


433 


125 


69 6 


J25 


59 1 


133 


506 


1U9 


499 


122 


519 


i34 


650 


J23 


525 


.125 


387 


122 


519 


J 20 


446 


.132 


519 


.134 


49 2 


126 


637 


.14 J 


598 


.14 1 


545 


1.14 


420 


.110 


48 6 


J41 


46.6 


128 


611 


J 18 


453 


123 


453 


.128 


644 


12 J 


571 


121 


578 


J22 


433 


.125 


578 


J 26 


552 


132 


630 


J32 


552 


134 


708 


127 


506 


121 


512 


J 38 


650 


.125 


499 


132 


5J9 


108 


51 1 


.121 


446 


J 28 


677 


126 


538 


132 


532 


J23 


617 


126 


644 


125 


584 


.122 


479 


120 


519 


133 


571 


SUM X = 


629 5 SUM Y = 


SUM X*Y 


= 342269 3 


SUM Xt2 


= 795067 


SUM Yf2 


149 689 56 



100 PRINT 'HOW MANY DATA PAIRS'; 

110 INPUT N 

120 PRINT 'PAIRED SCORES****' 

130LETS1=S2 = S3 = S4 = S5=0 

140 PRINT 

150FORX = 1TON 

160 READ A, B 

170 PRINT A,B 

180LETS1=S1+A 

190LETS2 = S2 + B 

200LETS3 = S3 + (A*B) 

210LETS4 = S4 + (A*A) 

220LETS5=S5+(B*B) 

230 NEXT X 

240 PRINT 

250 PRINT 'SUM X = ';S1,'SUMY = ';S2 

260 PRINT 'SUM X*Y = ';S3 

270 PRINT 'SUM Xt2 = ';S4 

280 PRINT 'SUM Yt2 = ';S5 

290 PRINT 

300LETC = N*S3-S1*S2 

310LETD = SQR((N*S4-S1?2)*(N*S5-S2t2)) 

320 PRINT CORRELATION COEFFICIENT = ;C/D 

330 PRINT 

340 DATA 127,591,117,446,127,538,120,433,125,696,125,591,133,506 

350 DATA 119,499,122,519,134,650,123,525,125,387,122,519,120,446 

360 DATA 132,519,134,492,126,637,141,598,141,545,114,420,110,486 

370 DATA 141,486,128,611,118,453,123,453,128,644,121,571,121,578 

380 DATA 122,433,125,578,126,552,132,630,132,552,134,708,127,506 

390 DATA 121,512,138,650,125,499,132,519,108,511,121,446,128,677 

400 DATA 126,538,132,532,123,617,126,644,125,584,122,479,120,519 

410 DATA 133,571 

420 END 



ANALYSIS 

The paired scores used here represent I.Q. scores and SAT 
verbal scores for a group of fifty students. They are the same 
data pairs that appear in the Appendix. 

The loop from 150 to 230 does most of the work. In this 
loop five partial sums are incremented. Each separate score, 
each cross-pair, and each score squared are incremented. 
Their sums are provided as output in statements 250 through 
280. 

The Pearson-Product Moment formula is used. The sums 
generated are used in lines 300 through 320 to compute the 
coefficient. There are less efficient algorithms which involve 
more computation but which do give more insight into the 
nature of the correlation process. These are easily programm- 
ed. 

A dispersion graph is also a possible extension of this pro- 
gram. 



2709 6 



CORRELATION COEFFICIENT = 



42128899 
127 



E.E. 



Statistical Data Analysis 



Write a program to find the arithmetic, geometric and 
harmonic means for a set of scores. You may use the 
scores in the appendix or your own set. Compare each 
measure of central tendency and try to establish a rela- 
tionship between them. You may use the formula sheet 
in the appendix to establish the correct mathematical 
procedure for computing each of these means. 

Find the mean deviation from the mean. Compute a 
variance and a standard deviation. 

There is a best way in which to compute each of the re- 
quired quantities. The order in which you establish 
variables is important. For example, it is best to sum up 
the squares of the deviations in the same loop as the 
generation of those squares. Obviously you cannot com- 
pute deviations from the mean in the same loop that is 
used to read the scores. The mean is not available until 
all scores have been summed. 

Do not generate a table of intermediate values. Have the 
computer sort the scores, then find the median and the 
mode. Print out the list of sorted scores. 
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ARITHMETIC MEAN = 75 
GEOMETRIC MEAN = 74.3258 
HARMONIC MEAN = 7 3.6484 

MEAN DEV I AT I ON FROM MEAN = 8.57143 
VARIANCE IS 100 
STANDARD DEVIATION = 10 



0005 DIM A(50),B(50),H(50) 

0100 PRINT 'LINEAR DATA REGRESSION' 

01 10 PRINT 

0120 PRINT 'HOW MANY PIECES OF DATA' 

0130 INPUT N 

0140LETG = J = C = H = T = 

0150 PRINT 

0160 FOR D=l TON 

0170 READ A(D) 

0180 LET C = C + A(D) 

0190 LET H = H + (1/A(D)) 

0200 LET W = LOG(A(D)) 

0210 LET T = T + W 

0220 NEXT D 

0230 LET E = C/N 

0240 LET T = T/N 

0250 LET T = EXP(T) 

0260 LET K = N/H 

0270 PRINT ARITH METIC MEAN = ;E 

0280 PRINT 'GEOMETRIC MEAN = ';T 

0290 PRINT 'HARMONIC MEAN = ';K 

0300 PRINT 

0310 FOR F = l TON 

0320 LET B(F) = ABS(A(F)-E) 

0330 LET G = G + B(F) 

0340LETH(F) = B(F)t2 

0350LETJ = J + H(F) 

0360 NEXT F 

0370 LET M = J/N 

0380 PRINT 'MEAN DEVIATION FROM MEAN = ';G/N 

0390 PRINT 'VARIANCE IS ';M 

0400 PRINT 'STANDARD DEVIATION = ';SQR(M) 

0410 PRINT 

0420 DATA 30,32,40,27,29 

0430 END 



ANALYSIS 

There is no need to sort the data for the first part of this 
problem. The program presented does all the incrementing 
and reading of scores in the D loop from lines 160 to 220. 

The F loop beginning in 310 computes the deviations and 
squares of the deviations. There was really no need to 
subscript these variables. That was done in anticipation of 
future additions and possibly a more detailed printout. 

The mode, median, root-mean-square and coefficient of 
variation are left as an exercise. The formulas for these 
measures can be found in the table in the Appendix. 
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E.7 



Roots of Complex Numbers 



Write a program to take the coefficients of a complex 
number in rectangular form: a + bi and convert it to 
polar form: k(cos 6 + / sin 0). 

The program should receive as input for this part only 
the variables a and b. Compute the modulus k and the 
angle within your program. 

The second part of the program should take any root of 
the complex number. Input here should only be what 
root is to be taken as an integer. Compute the roots with 
the numbers in polar form, then convert back to rec- 
tangular and printout the results. Have the computer 
print all the roots. There will be n complex «th roots in 
rectangular form. 

There are, for example three cube roots of the number 
8. One of them is 2. What are the other two? 




Reference: 

Julian Mancill, Modern Analytical Trigonometry, 

pp. 167-185. 
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THIS ^POGPAM TAKES THE ^OOTS OF A COMPLEX NUMBER! 
IiJpTTT THE PEAL AHD IMAGIIJAFY COEFFICIENTS. 
? 8; 

8 + e I I [J POLAP FOPM IS 
8 * (COS + I SIN ) 

PHICH POOT DO YOU ^ISH 



th: 



3 ^OOTS APE: 



2 + 01 
-1 + 1.73205 I 
-.999999 +--1. 73205 I 



THIS ^FGGFAM TAKES THE ROOTS OF A COMPLEX NUMBER! 
IfjnTTT t he PEAL- AMD IMAGINARY COEFFICIENTS. 
? 1-6^0 

16+01 IfJ POLAP FORM IS 
16* C CCS + I SIN ) 

UHICH P.OOT DO YOU "TI SH 
? 4 

THE 4 FOOTS APE; 



2 


+ 





I 





+ 


c. 


I 


-2 


-i- 




I 





+ 


-2 


I 



100 PRINT 'THIS PROGRAM TAKES THE ROOTS 

OF A COMPLEX NUMBER!' 
1 10 PRINT 'INPUT THE REAL AND IMAGINARY 

COEFFICIENTS' 
120 INPUT A,B 
130 PRINT 

140 LET P = 3.1415927 
150 LET Rl =57.29577 
160LETR = SQR(A12 + Bt2) 
170LETT = ATN(B/A) 

180 PRINT A;' + ';B;' I IN POLAR FORM IS' 
190 PRINT R;'* (COS ';T*R1;' + I SIN ';T*R1;')' 
200 PRINT 

210 PRINT 'WHICH ROOT DO YOU WISH' 
220 INPUT N 
230 PRINT 

240 PRINT 'THE ';N;' ROOTS ARE:' 
250 PRINT 
260FORK = 0TON-l 

270 PRINT R t (1 /N)*(COS((T + (2*K*P))/N)); 
280 PRINT' + ';Rt(l/N)*(SIN((T + (2*K*P))/N));'I' 
290 NEXT K 
300 END 



ANALYSIS 

This program will take a number in rectangular form and 
convert it to polar form. This is done in line 190. The relation- 
ship: 

i?°(cos 6 + i sin 0) 



is used where: R ■ 
plex form a + bi. 



V« 2 + b 2 and tan = b/a from the com- 



The n roots are taken in statements 260 through 290. The for- 
mula is given in the loop. The variable P is the value of v and 
is defined in line 140. The root to be taken is stored in iVand K 
goes from to AM as it computes each root. 

Notice the truncation that takes place in the output due to 
the use of the power series for computing trig functions. The 
numbers whose exponents of 10 are negative and large are ap- 
proximations to zero. The four roots of 16 should therefore be 
read as 2, -2, 2/ and -2/. It is left as an exercise for the reader 
to remedy this problem. 
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E.B 



Area Under A Curve Using Random Numbers 



Suppose it is necessary to find the area under a curve 
between two vertical lines and the x-axis. The calculus 
tells us it can be done by integration. This is a challeng- 
ing yet useful problem for a computer. It is difficult to 
program the computer to do integration by algebraic 
techniques, such as the manipulation of exponents, or 
by parts. It is not impossible. A clever way around the 
problem is as follows. 

Imagine the x-axis to be the side of a rectangle, with the 
lines x = a and x = b forming the pair of sides perpen- 
dicular to the x-axis. It remains only to place the side 
parallel to the x-axis to complete the rectangle. That 
side should be placed so that it includes the entire curve 
in question. 

If one were to generate random numbers between the 
limits imposed by the length and width of the rectangle, 
and if these random numbers were used as coordinates 
for points, then either of two possibilities exist. All 
points would fall within the rectangle but some would 
be above the curve and others below it. The number of 
points falling below the curve would be in direct propor- 
tion to the area beneath the curve. If one were to 
generate a sufficient number of points, the total number 
of points falling beneath the curve or on the curve divid- 
ed by the total number of points generated should be in 
the same proportion as the area beneath the curve is to 
the total area of the rectangle. Since we can compute the 
area of the rectangle it should be possible to compute 
the area under the curve. 

Write a program to calculate this area. You will need to 
input the limits of integration a and b, the equation of 
the curve, as well as the height of the rectangle. It is con- 
venient to make the height of the curve the maximum 
value of the function at either point a or b. A more 
sophisticated program could compute this height from 
the values of the function at those points. 




Reference: 

Donald Greenspan, Introduction to Calculus, 

pp. 196-206. 



* X 
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INPUT LIMITS? 0,2.5 

HO T -J MANY POINTS? 500 

AREA OF PECTANGLE IS 2.7494 

% A PEA UNDER CURVE IS 66-2 

AREA UNDER F(X) = 1.82011 



110 PRINT "INPUT LIMITS"; 
120 INPUT A,B 

130 PRINT "HCU MANY POINTS"; 
140 INPUT N 

142 LET C=A 

143 FOR X=A TO B STEP (B-A)/50 

144 IF SINCXXSINCC) THEN 146 

145 LET C=X 

146 NEXT X 

147 LET C= 1 . 1* SIN CO 

1 50 LET S=0 

1 60 LET R=<B-A)*C 

170 RANDOMIZE 

180 PRINT "AREA OF RECTANGLE IS **; R 

190 FOR T '7= 1 TO N 

200 LET X=((B-A)*END(X))+A 

2 10 LET Y=C*RND(X) 

220 IF Y>SIN(X) THEN 240 

230 LET S=S+1 

24 NEXT U 

2 5 L ET P 1 = ( S /N ) * R 

255 PRINT "% AREA UNDER CURVE IS "; ( 1 00* S) /N; " %" 

260 PRINT "AREA UNDER F(X) = ";R1 

2 70 END 



ANALYSIS 

The problem is short but useful in showing the variability 
but relative consistency of random numbers. 

Because the nature of the function cannot be predicted in 
advance, it is necessary to determine the maximum value of 
the function over the range a to b, so the rectangle will enclose 
the functional area. A more sophisticated program would 
search for maxima between a and b for they may not always 
occur at the limits of integration. Lines 142 through 146 search 
the function (a sine curve in this example) for a maximum and 
then add 10% for insurance in line 147. The rectangle may be 
larger than the curve itself is high. 

The sine function is used here. Line 160 computes the area of 
the rectangle. The loop beginning in 190 generates n random 
pairs (x, v) between the limits a and b. Statement 220 tests the 
pairs to see if they fall beneath the curve. Statement 230 keeps 
track of successes. Line 170 insures a unique run each time the 
program is run. We don't want these darts to land in the same 
holes every time! 

Notice the technique for generating random numbers within 
a certain interval. We multiply the random number which will 
always start out as an eight digit decimal between and 1, by 
the difference between the end-points. We then add to this the 
lower limit. 
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Area Under A Curve by the Trapezoidal Rule 



Compute the area under a curve included between two 
vertical lines which represent the limits of integration. 
The area will be bounded by the curve, the vertical lines 
and the x-axis. 

Break the area under the curve down into small 
trapezoids that are equal in height (their height runs 
along the x-axis) but have varying bases. Compute the 
area of each and sum them to approximate the area 
under the curve. Introduce the function into the pro- 
gram by means of the DEF FNA(X) statement. 

As input you should include the limits of integration, 
the number of trapezoids, and the function to be in- 
tegrated. Start with a small number of trapezoids and 
you will observe that the approximation, in most cases, 
becomes more accurate as the number of trapezoids in- 
creases. 

There is no need to avoid functions whose upper limit is 
oo . These can be taken care of by using a large number 
as an approximation to infinity. 

If you've had any calculus, you might wish to integrate 
the function by traditional methods and compare the 
two values. It is a real challenge to get the computer to 
integrate algebraically but it can be done. 




Reference: 

Most any Calculus text will have a treatment of the 
trapezoidal rule. 

Donald Greenspan, Introduction to Calculus, pp. 
196-206. 
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THE LIMITS OF THE AREA AND NO OF TRAPEZOIDS PLEASE 

? 0,6*500 

AREA UNDER THE CURVE BETWEEN AND 6 IS 

197.99978 
DO YOU WISH TO RUN AGAIN <Y OR N) 
? Y 

THE LIMITS OF THE AREA AND NO OF TRAPEZOIDS PLEASE 

? 0*6, 1000 

AREA UNDER THE CURVE BETWEEN AND 6 IS 

19 7.999 28 
DO YOU WI SH TO RUN AGAIN CY OR N) 
? N 



10DEFFNA(X) = Xt2 + 6*X + 3 

15 PRINT 

20 PRINT 'THE LIMITS OF THE AREA AND NO OF TRAPEZOIDS PLEASE' 

30 INPUT A,B,N 

40LETH = (B-A)/N 

50LETS = 

60 FOR X = A TO B-H STEP H 

70 LET R = (FNA(X) + FNA(X + H))*(H/2) 

80LETS = S + R 

90 NEXT X 

100 PRINT 'AREA UNDER THE CURVE BETWEEN ';A;' AND ';B;' IS' 

110 PRINTS 

120 PRINT 'DO YOU WISH TO RUN AGAIN (Y OR N)' 

130 INPUT A$ 

140IFA$ = 'Y'THEN15 

200 END 



ANALYSIS 

The formula for the trapezoidal rule is familiar to every 
calculus teacher. 

Line 40 computes the height of each trapezoid. Line 70 com- 
putes the lengths of the bases. Study the design of the in- 
crementers for each loop. They are placed so as to include the 
endpoints of the area only once each. All intermediate bases 
are used twice. 

Line 80 sums up the areas of each trapezoid. The function 
may be changed by simply inserting a new one in line 10. 
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?D 



Einstein's Energy Equation 



Write a computer program to print out the amount of 
energy available from a given unit of mass and its cost. 

Use Einstein's famous formula: E = mc 2 . Input the 
mass in kilograms. The constant c will have to be in the 
proper units. Have the energy printed out in joules and 
kilowatt hours. Assume that a kilowatt hour cost 1<P 
(would that it were ever so!). 

The table should go from 10 to 100 kilos. The conver- 
sion factors and speed of light in the proper units should 
be available in any elementary physics text. 




JOULES 

9^00000E+17 
I.80000E4-18 
2.70000E4-18 
3o60000E+18 
4..50000E4-18 
5.40000E4-18 
6*30000E+|8 
7.20000E4-18 
8« 10000E4-18 
9»00000E4-I8 



W-HOURS 


DOLLARS 


MASS <KG) 


2.50000E4-1! 


2. 50000E4-09 


10 


5*00000E+1 1 


5«00000E4-09 


20 


7o50000E4.il 


7« 50000E4-09 


30 


1 • 00000E+.12 


1 .00000E4.10 


40 


1 .25000E+.12 


1 *25000E4-10 


50 


1 *50000E4-12 


1 e50000E4-10 


60 


S »75000E+i2 


1 «75000E4-10 


70 


2.00000E4-12 


2.00000E+10 


80 


2.25000E4-.12 


2.25000E4-10 


90 


2.50000E+12 


2.50000E4-10 


100 



05 PRINT ' '; 

10 PRINT 'JOULES'.'KW-HOURS'.'DOLLARS'.'MASS (KG)' 

20 PRINT 

30LETC = 3E8 

40FORM = 10TO100STEP10 

50LETE = M*Ct2 

55LETD = E/3.6E8 

60 PRINT E,E/3.6E6,D,M 

70 NEXT M 

100 END 



ANALYSIS 

This table is an astounding illustration of the energy available to us 
from the direct conversion of matter to energy. Einstein's formula is 
used in line 50. The speed of light is taken as 300,000,000 meters per 
second. The E in line 30 indicates exponential notation and can be 
thought of as replacing times 10 raised to the power. 

Statement 60 converts from joules to kilowatt-hours and also con- 
verts the cost to dollars. 
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Centigrade to Farenheit and Back 

Write a program to print a table for converting from 
farenheit temperature to centigrade and vice- versa. 

Let the units on the left be integers, use the entire print 
line for the table. The print-outs should be side-by-side. 
The formulas for the conversion are well known, and 
you should have no trouble finding them. Have the 
table go between whatever limits you wish. 

Label all columns to avoid confusion. You might also 
compute the temperature in degrees Kelvin and Rankin 
if you wish to expand your program. 



AMI 



5 

1 Ti 


.1. u 

15 

20 



HE I' 



■.:> U 



40 



JH 



/ -.J 

80 

o o 

90 

95 

100 

105 



i. .v\ ■.:> 
130 
135 
140 
145 
:l 50 
155 
160 



180 



190 
195 
200 
205 



CENT I GR A 


I) 


•-17,7778 

•••■ 1 5 




-•12*2222 




••• 9 * 4 4 4 4 4 




■..." ■> :.j >..> (..' i..i .- 




... -£ ■:::> p o •::> o 

-...' v '..) '...' '..} K.I / 

... 1 | | •! | i 




.1. , .1. .1. .1. .1. .1. 

1,6666? 




4 t 44444 

'"■' . ■""' ' .' '"> '!•' '"' 

1 




12,7 778 

•I i::- i::- 1:" i::- / 
.1. :J , •..; :.) -.J O 

•:> | . 1 1 1 1 




a.. .1. •:• .1. .!. .1 .1. 

•":■ "'/. O •""■ r\ ."'■ 
a.. •...• •:• '...■ •.:> O ■;■" 




") /. i. .:•. /. ■■■) 

.:.. K.I V K.I K.I K.l / 




•"> 9 ,. A. a Ad 





• U <• •...' -...' -..,' ■*:■ 
a '>; . "x >; ■: m; 

46, 1111 

4 9 ... p, p R 9 

51 ,6667 
54 , 4444 

i::; .' "\ ■■■; ■■■, ■■ •, 



<>. A A A 



CENTIGRADE 

5 

1 
15 
20 
25 

3 
35 

4 
45 
50 

C" I" - 
* J :J 

6 

.' I"" 

<::■ -...' 

7 A 



t'i i::- 
•;•• -„.i 

100 
105 



140 
145 
150 
155 
160 



180 



•AHRENHEIT 

32 

41 

50 

59 
o 



K.I K.I 
.... .... 



104 
1 .1. 3 
122 
1 3 1 
140 
149 
158 
167 
176 
185 
194 



239 
248 

"i I"' •• 

■:.". ...■ / 

•.•.•'66 
... .... ,... 

I. / V.. 1 



96, 1:1 11 

98, 8 999 



KAR 



7 A.I. 



40:1 

4 I A 



10 PRINT 'FAREN7CENT7CENT7FAREN' 

20 FOR F = TO 212 

30 PRINT F,(5/9)*(F-32),F,(9/5)*F + 32 

40 NEXT F 
50 END 
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Increase in Rest Mass 
as a Function of Speed 



Einstein predicted that as a body's speed increased 
toward the velocity of light its mass would increase 
without limit according to the relationship given below. 

He used this to predict the fact that nothing could ex- 
ceed the speed of light. He reasoned that at the speed of 
light the mass of the moving body would become in- 
finite and would then require an infinite force to keep it 
in motion. Since no infinite forces exist, there could be 
no doubt that nothing with a mass can move at the 
velocity of light. 

Some very tiny particles move very close to the speed of 
light. Write a program to compute for a given mass just 
how much of an increase would take place as the veloci- 
ty of the body increased up to c— the velocity of light. 
Let your data be output in tabular form showing the 
velocity as a scalar and also as a function of its ratio to 
c. 

Look up the velocity of light in any system, then keep v 
in the same units. Mass units will be identical to the 
units you input for rest mass. 

A similar formula exists for relative time dilation, and 
for linear contraction. These are known as Lorentz' 
Transformations. You may wish to investigate what 
happens to time as a body moves toward the speed of 
light. 

v = velocity of the body 
c = velocity of light 
m = rest mass 
m r = relative mass 

m r = mj 1/[1 - (vVc 2 )] 




References: 

Isaac Asimov, Understanding Physics, Volume I, 
Force, Motion and Heat. 
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INPUT THE REST MASS OF THE BODY IN KILOS? 

? 85 

VELOCITY OF LIGHT IS 2*??793EH>8 METERS/ SEC ! 

RELATIVE MASS VELOCITY (MPS) % OF C 



85*00015 
85,001? 
85,0043 
85,0076 
85,0118 
85,0171 
85,0232 
85,0303 
85 , 0383 
85,0473 
85,0573 
85,0682 
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100 PRINT 'INPUT THE REST MASS OF THE BODY IN KILOS' 

110 INPUT M 

120 GO TO 170 

130 PRINT 'RELATIVE MASS','VELOCITY(MPS)','% OF C 

140 PRINT 

150 GO TO 210 

160 PRINT 

170LETC = 2.997925*10t8 

180 PRINT 'VELOCITY OF LIGHT IS ';C;' METERS/SEC!' 

190 PRINT 

200 GO TO 130 

210 FOR V = TO 3E8 STEP 100000 

220LETR = M*SQR(l/(l-(Vt2/Ct2))) 

230 PRINT R,V,(100*V)/C;'%' 

240 NEXT V 

250 END 



ANALYSIS 

This program illustrates the tremendous speed which must 
be attained to experience increases in relative mass as 
predicted by the Lorentz Transformation. 

Even at 4 million meters per second a body with a mass of 
85 kilograms at rest would have a mass of only 85.007 kilos. 
Measurable certainly, but hardly significant. 

In the program line 170 defines the speed of light in meters 
per second. Statement 220 computes the relative mass while 
line 230 computes and prints the percentage of c that has been 
attained. 
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Infinite Network of Resistances 



The following physics problem may seem to defy solu- 
tion. 

The diagram below is that of an infinite network of 
equal resistors. The difference of potential across the 
circuit is irrelevant. The idea is to find the total 
resistance of the network. 

Remember resistances in series simply add up as they 
are, and resistances in parallel add up as reciprocals. Be 
sure to get the actual formulas exact. 




THE CIRCUIT 

R R 

* W T 1/1/ 



r 



R 




\/\r^ + 



R 



W— 



HINT: Careful study will lead you to the conclusion 
that a continued fraction will aid in the solution. Review 
what you know about them and let the computer 
evaluate the one you come up with. The answer involves 
the square root of three. Leave your answer in those 
terms. 



References: 

Kemeny and Kurtz, Basic Programming, pp. 124-126. 
Sears and Zemansky, University Physics. 
A. Ya. Khinchin, Continued Fractions. 
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FOR THE NETWORK 



BELOW* THE TABLE GIVES TOTAL 
RESISTANCE 



„„. __ fcfci ^_ .*# ^U _ -_ -__ «_ __ — — «A- a^ a^ *^ «w «» —a «_ m ^ iA# ^b* ^P ^fc M» <M» «M «■» OB «Si 



• -»****-■«----•****--.•«--«-****•••-»••- 



NUMBER OF TERMS 



PARTIAL SUM 



1 
2 

3 
4 
5 
6 
7 
8 



2.75 

2.7333333 

2.7321428 

2.7320574 

2.7320513 

2.7320508 

2* 7320508 

2.7320508 



__**** ****_ 



R 1 



1 



1 



1' 



1 



1' 



_**** **** *##*_ 

R R R' 



10 PRINT 'FOR THE NETWORK BELOW, THE TABLE GIVES TOTAL' 
1 5 PRINT ' RESISTANCE' 

20 PRINT 

21 PRINT 

22 PRINT ' 

23 PRINT ' 

24 PRINT ' 

25 PRINT ' 

26 PRINT ' 

27 PRINT ' 

28 PRINT ' 

29 PRINT 

35 PRINT 'NUMBER OF TERMS'„'PARTIAL SUM' 
40 PRINT 
102 LET X = 3 
105 FOR N=l TO 8 
115LETV = ((3*X) + 2)/(X + l) 
120LETM = V 
125PRINT,N,,M 
135LETX = M 
140 NEXT N 

ANALYSIS 



The program is based on a continued fraction. The actual 
value to which the resistance converges is 1 + V5. 
The general equation is: 

R„ = 2R +1/[(1/Z? + (l/R nA )] 
where R t = 2R + R and contains: 

R 2 = 2R + l/[(l/R) + (1/7?,)] and contains: 



Line 115 computes the continued fraction and line 
135 saves the terms computed in the previous run for in- 
clusion in the subsequent run. 
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Love Letter 



Write a program that will ask a young lover a few ques- 
tions, and then write a letter to his girl friend on the 
basis of his answers. 

INPUT statements of the form: 20 INPUT A$ are called 
for here. The remainder of the text is a problem for your 
own imagination. 
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WHAT IS Y0UR FIRST NAME AND HEIGHT (IN INCHES)? STEVE,68 

WHAT IS Y0UR GIRLFRIENDS FIRST NAME AND HEIGHT (IN INCHES)? JEANNETTE, 60 

WHAT C0L0R HAIR AND EYES D0ES SHE HAVE? BR0WN, HAZEL 

HER BEST FEATURE IS HER (WHAT)? SMILE 

WHEN DID Y0U MEET AND WHERE? 1952, THIRD GRADE 

WHAT IS 0NE THING Y0U LIKE T0 D0 T0GETHER 

? TRAVEL 

WHEN DID Y0U SEE HER LAST? THIS M0RNING 

MY DEAREST JEANNETTE, 

I HAVE MISSED Y0U S0 SINCE THIS M0RNING 
I L0VE THE T0UCH 0F Y0UR BR0WN HAIR 

I L0VE T0 GAZE D0WN INT0 Y0UR BEAUTIFUL HAZEL EYES 
BUT M0ST 0F ALL I L0VE Y0UR SMILE 

MY LUCKIEST DAY WAS WHEN I MET Y0U AT THIRD GRADE 
D0 Y0U REMEMBER- IT WAS 1952 
T0NIGHT LETS GET T0GETHER AND TRAVEL 
UNTIL THEN-ALL MY L0VE 
STEVE 



10 PRINT 'WHAT IS YOUR FIRST NAME AND HEIGHT (IN INCHES)'; 

20 INPUT X1$,X2 

30 PRINT 'WHAT IS YOUR GIRLFRIENDS FIRST NAME AND HEIGHT (IN INCHES)'; 

40 INPUT X3$,X4 

50 PRINT'WHAT COLOR HAIR AND EYES DOES SHE HAVE'; 

60 INPUT X5$,X6$ 

70 PRINT'HER BEST FEATURE IS HER (WHAT)'; 

80 INPUT Y3$ 

90 PRINT'WHEN DID YOU MEET AND WHERE'; 

100 INPUT X7$,X8$ 

1 10 PRINT'WHAT IS ONE THING YOU LIKE TO DO TOGETHER' 

120 INPUT X9$ 

130 PRINT'WHEN DID YOU SEE HER LAST'; 

140 INPUT Y2$ 

150 IF X2>=X4 THEN Yl$ = 'DOWN' ELSE Y1$ = 'UP' 

155 PRINT 

160 PRINT 'MY DEAREST ';X3$;7 

170 PRINT TAB(5);'I HAVE MISSED YOU SO SINCE ';Y2$ 

180 PRINT I LOVE THE TOUCH OF YOUR ;X5$;' HAIR' 

190 PRINT'I LOVE TO GAZE ';Y1$;' INTO YOUR BEAUTIFUL ';X6$;' EYES' 

200 PRINT 'BUT MOST OF ALL I LOVE YOUR ';Y3$ 

210 PRINT 'MY LUCKIEST DAY WAS WHEN I MET YOU AT '; X8$ 

220 PRINT'DO YOU REMEMBER-IT WAS ';X7$ 

230 PRINT TONIGHT LETS GET TOGETHER AND ;X9$ 

240 PRINT 'UNTIL THEN-ALL MY LOVE' 

250 PRINT TAB(10);X1$ 

260 END 
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Numeric Sorter Routine 
(Alphanumeric Option) 



Write a program to sort a list of numbers entered at ran- 
dom. 

The numbers may be any real numbers including zero 
and the negative reals. This is a required subroutine for 
most any statistical analysis. Remember numbers may 
appear more than once so take that into account. 

This is an excellent exercise in using subscripted 
variables. It is a challenging program. Be sure to work 
the flow chart for this one out carefully. It will save con- 
siderable time and effort in the programming phase of 
the problem. 

Do not use an INPUT statement here. It is quite time- 
consuming when used with extended data manipulation. 

Include all data in a DATA statement at the end of the 
program. 

A simple addition or modification to this program 
allows for the sorting of alphanumeric data (letters) 
which is a means of putting names, etc., in 
alphanumeric order. 



16 PIECES TO BE SORTED 
NUMERIC SORTER*** 



SORTED LIST**** 
89 56 '45 35 



34 34 13 12 12 7 






05 DIMA(IOO) 

6 PRINT 'HOW MANY PIECES TO BE SORTED' 
8 INPUT N 

10 PRINT 'NUMERIC SORTER***' 

20 PRINT 

30FORX = 1TON 

40 READ A(X) 

45 NEXT X 

50 PRINT 

55 FOR K = N TO 2 STEP -1 

60LETG = A(K) 

70FORJ = 1TOK-1 

80IFG>=A(J)THEN200 

90LETT = G 

100LETG = A(J) 

110LETA(J) = T 

200 NEXT J 

210LETA(K) = G 

220 NEXT K 

230 PRINT 'SORTED LIST ****' 

240 FOR B = N TO 1 STEP -1 

250 PRINT A(B); 

260 NEXT B 

300 DATA 12,34,35,45,56,12,13,1,2,3,4,5,6,7,89,34 

400 END 



ANALYSIS 

Many studies have been done involving the efficiency f o sor- 
ting algorithms. This program is by no means the most 
economical way to sort numbers. It is, however, relatively sim- 
ple to understand. 

The X loop in 30 reads the data. The K loop takes the last 
number in the list and compares it with the other N-\ numbers 
which remain. The number in hand is G. When G is bigger 
than an item in the list, we go on to the next item. When G is 
smaller we put G back in the list, pick up the other number 
(line 100) call it G and then continue. When we finish one pass 
through the J loop we have found the biggest number. It is 
stored for future printing in line 210. It could actually be 
printed right there. The computer now repeats the process 
with the list one item smaller. 

Notice the use of T in 90 and 1 10. T serves as a place to put 
G until we can pick up A(J). When we tag A(J) as the new G, 
we then go to 7 to pick up what's there (the old G) and put it 
back in the list as A (J). 
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17 STRINGS TO BE SORTED 
ALPHAMERIC SORTER***** 



ALPHABETIZED LIST 

ADAMS BAILEY BENCH COHEN CONWAY IKE JONES LEO LONG 
LONGDO MEEMOM PEEPOP ROGO SHEAR SMITH WHALEN WHEELER 

.5 DIM AS (50) 

10 READ N 

20 PRINT N; "STRINGS TO BE SORTED" 

30 PRINT 

35 PRINT "ALPHAMERIC SORTER*****" 

40 PRINT 

50 FOR X=l TQ N 

60 READ AS ,<X) 

70 NEXT X 

80 PRINT 

9 FOR K=M TO 2 STEP -1 

100 LET GS=ASCK) 

1 10 FOR J=l TO K-l 

120 IF GS>=AS(J) THEN 200 

130 LET TS=GS 

140 LET GS=ASCJ) 

150 LET ASCJ)=TS 

200 NEXT J 

210 LET AS(K)=GS 

220 NEXT K 

230 PRINT "ALPHABETIZED LIST " 

240 FOR B=l TO N 

250 PRINT ASC/B);" "; 

252 IF B/9<>INTCB/9) THEN 260 

25 5 PRINT 

260 NEXT B 

270 DATA 17,ADAMSj CONWAY, COHEN, BAILEY, SHEAR, LONCt^LEO 

310 DATA WHALEN, WHEELER* IKE, LONGDO, ROGO, SMITH, JONES 

320 DATA BENCH, MEEMOM, PEEPOP 

4.00 END 

ANALYSIS 

The program is exactly the same as the numeric sorter ex- 
cept that strings are used instead of real variables. 

The computer compares strings by using the coding scheme 
found in the appendix. For items that do not differ in any let- 
ter such as LONG and LONGDO the computer will print the 
shorter item first. A blank in a string has a coding number of 
32 and is smaller than any letter. A has a coding number of 
65. 
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Touch-Tone Music by Computer 



With the advent of the touch-tone phone came a new era 
in musical productions. The tone put out by each button 
is equivalent to a note from the musical scale. Some 
phones have twelve buttons, some only ten. A respec- 
table version of many songs can be generated using the 
proper sequence and timing of tones. 

For example a fair version of Raindrops Keep Fallin' on 
My Head can be played by punching out 33363213. 
Twinkle, Twinkle, Little Star will result from tapping 
out 1 199009. Even Beethoven's Fifth Symphony can be 
heard by 0005 8883. 

Write a computer program to translate a song from or- 
dinary sheet music into a respectable version suitable for 
the touch- tone phone. When experimenting be sure to 
call a friend before you start tapping, or you're liable to 
wind up with a bill for a long-distance call to East 
Kinorki. 

The notes and their button equivalents are reproduced 
below. 
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Music Randomly 



There is a trend in music to let the computer compose 
melodies and even lyrics for certain songs. These pro- 
grams are rather involved musically speaking and are 
consistent in any number of aspects. 

An interesting experiment would be to allow the com- 
puter to generate notes at random on a staff. The only 
check by the programmer would have to be regarding 
key and timing. 

Have the computer type out a five line staff along with 
notes imposed upon it. If you wish you can draw the 
staff beforehand, or even insert a musical sheet 
sideways. Try to use different symbols for notes of dif- 
ferent duration. A clever student might even be able to 
form the notes as they actually look, [o' or or o' or 
some other concoction could be made to look like 
notes.]. 

Attempts to play the music could lead to interesting in- 
terpretations in the right musical mind. 
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Write Your Own Checks 



Write a program to produce a facsimile of a check. The 
face value should be less than $ 1 00. 

Have the computer accept as INPUT the date, the 
payee, the signator, the transit numbers and of course 
the amount of the check. Remember, this value must 
also appear in alphanumeric form in the space beneath 
the payee. This may be accomplished by actually typing 
the amount in words or by translating into 
alphamerics— a most tedious operation. 

Dress your check up with a bank of your own creation. 
Neatness counts! 

The check below is larger than actual size. Use the whole 
width of the paper. 



******************************************************************* 

* EAST KINORKI ROD § GUN CLUB NO. 69 * 

* APRI L 1 i9Z2- 29^1 * 

* 1089 * 

* * 

* PAY T0 EUSTACIUS RIGGLETTS $ 97.54 * 

* NINETY-SEVEN AND 34/100 ********************* D OLLARS * 

* FIFTH NATIONAL BANK * 

* YAMAHOO FALLS * 

* Y * 



1 



* 0213-001-13-435-17.. * 

******************************************************************* 
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Tic-Tac-Toe 



Program the computer to play Tic-Tac-Toe. 

Allow the player the option of going first or second. Set 
up a numbered array of the game board and work from 
there; moves can be referred to by number and the 
player can do his own book work. It takes too much 
computer time to constantly print out the updated ar- 
ray. 

Study the strategy of the game carefully. With proper 
planning the worst the computer can do is draw. The 
computers winning record affects the outcome of this 
problem point wise. 

Allow for input by number and be sure the computer 
makes it clear exactly how the moves should be entered. 
Inexperienced people may be running this program. 

The computer should be able to declare itself the winner 
or admit that it's been drawn. 



1 


a 


3 


fl 


R 


A 


7 


t 


5 



References: 

Martin Gardner, Mathematical Games, Scientific 
American. 
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THIS PROGRAM PLAYS TIC TAG TOE 
THE GAME BOARD IS NUMBERED THUS* 



I 



2 
9 
6 



COMPUTER MOVES 9 
YOUR MOVE? 3 
COMPUTER MOVES 4 
YOUR MOVE? S 
COMPUTER MOVES 6 
YOUR MOVE? 2 
COMPUTER MOVES ! 
YOUR MOVE? 5 
COMPUTER MOVES 7 
THE GAME I S DRAWN I I 



COMPUTER MOVES < 
YOUR MOVE? 4 
COMPUTER MOVES 
YOUR MOVE? 1 
COMPUTER MOVES 
YOUR MOVE? 3 
COMPUTER MOVES 
AMD WINS #***##* 



COMPUTER MOVES 9 
YOUR MOVE? STOP 
PROGRm STOPPED* 



100 PRINT 'THIS PROGRAM PLAYS TIC TAC TOE' 

1 10 PRINT 'THE GAME BOARD IS NUMBERED THUS: 

120 PRINT '1 2 3' 

130 PRINT '8 9 4' 

140 PRINT '7 6 5' 

150 PRINT 

1 80 DEF FNM(X) = X-8*INT((X-l)/8) 

200 GO TO 210 

210 PRINT 

220 PRINT 

230 LET A = 9 

240 LET M = A 

250 GOSUB 650 

260LETP = M 

270LETB = FNM(P + 1) 

280LETM = B 

290 GOSUB 650 

300LETQ = M 

310 IF Q = FNM(B + 4) THEN 360 

320LETC = FNM(B + 4) 

330LETM = C 

340 GOSUB 700 

350 GO TO 730 

360LETC = FNM(B + 2) 

370LETM = C 

380 GOSUB 650 

390LETR = M 

400 IF R = FNM(C + 4) THEN 450 

410LETD = FNM(C + 4) 

420LETM = D 

430 GOSUB 700 

440 GO TO 730 

450 IF P/2< > INT(P/2) THEN 500 

460LETD = FNM(C + 7) 

470LETM = D 

480 GOSUB 700 

490 GO TO 730 

500LETD = FNM(C + 3) 

510LETM = D 

520 GOSUB 650 

530LETS = M 

540 IF S = FNM(D + 4) THEN 590 

550LETE = FNM(D + 4) 

560LETM = E 

570 GOSUB 700 

580 GO TO 730 

590LETE = FNM(D + 6) 

600LETM = E 

610 GOSUB 700 

620 PRINT 'THE GAME IS DRAWN ! ! ' 

630 GOTO 210 

650 GOSUB 700 

660 PRINT 'YOUR MOVE'; 

670 INPUT M 

680 RETURN 

700 PRINT 'COMPUTER MOVES ';M 

710 RETURN 

730 PRINT 'AND WINS *******' 

740 GO TO 210 

750 END 
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Palindrome Detector 



A palindrome is a word or number which reads the same 
backwards as forwards. 

The word otto is a palindrome. So is the phrase, Able 
was I 'ere I saw Elba. 

Program the computer to test a phrase to see if it is a 
palindrome. Input the entire line as a string using a LIN- 
PUT statement. You can test numbers better than letters 
so convert the letters to their coded equivalents and test 
those from end-to-end. 

The program should be capable of ignoring punctuation 
and spacing. 



? 123454321 



THE ABOVE IS A PALINDROME 



? 123 



THE ABOVE IS NOT A PALINDROME 



? 4 



THE ABOVE IS A PALINDROME 



? OTTO 



THE ABOVE IS A PALINDROME 



100 REM **** PALINDROME DETECTOR ******** 

1 10 DIM A(72),B(72) 

120 READ C$ 

130 DATA ',."-' 

140 CHANGE C$ TO C 

150 PRINT 

160 PRINT 

170LINPUTAS 

180 FOR 1=1 TO 2 PRINT 

1 90 CHANGE A$ TO A 

200 J = 

210FORI = 1TOA(0) 

220 IF A(I) = C(l) OR A(I) = C(2) OR A(I) = C(3) THEN 260 

230 IF A(I) = C(4) OR A(I) = C(5) THEN 260 

240J = J + 1 

250B(J) = A(I) 

260 NEXT I 

270 K = INT (J/2) 

280 FOR 1 = 1 TO K 

290 IF B(I) < > B(J) THEN 340 

300J = J-1 

310 NEXT I 

320 PRINT 'THE ABOVE IS A PALINDROME' 

330 GO TO 150 

340 PRINT 'THE ABOVE IS NOT A PALINDROME' 

350 GO TO 150 

360 END 



? ABLEVASIEREISAVELBA 



THE ABOVE ISA PALINDROME 



? PROGRAM 



THE ABOVE IS NOT A PALINDROME 



ANALYSIS 

The palindromes are entered as strings on line 50. They are 
converted to their coded numeric equivalents. These are then 
tested end-to-end for a match. 

The loop beginning at 210 tests for the matching ends. In a 
sense, it folds up the string from the center and checks for 
symmetry. 

Lines 120 through 160 test the string entered for punctua- 
tion marks and then tells the system to ignore them by bran- 
ching to line 190. 
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Metric Recipe Conversion 



The United States is the only major industrial nation in 
the world which does not use the metric system of 
measurement. The day is not far off when we will con- 
vert to such a system. Every quantity will be represented 
as a decimal part of another. This will considerably 
simplify computation. 

Getting used to such a system will be difficult. In an- 
ticipation of that day, write a program to convert a 
recipe in your cookbook (we certainly can't expect 




everyone to buy new cookbooks) from the units we use 
today into the less familiar metric units. 

You might also consider writing in the opposite direc- 
tion; for it is conceivable that outstanding recipes in 
future cookbooks would have to be bypassed unless you 
had a way to convert them into units for which you had 
tools to cook and bake. 

A table of the major units in each system is given below. 



RECIPE CONVERTER 



1 Liter = 1 .0567 Quart 1 Kilogram = 2.205 Pounds 



CONVERTS RECIPES FROM CCUST0MARY3 TO METRIC 

USE THESE ABBREVIATIONS! 

T=TEASP00N 

C=CUP 

PT=PINT 

N=N0 CONVERSION NECESSARY 



TB=TABLESP00N 
0Z=0UNCES 
QT= QUART 



WHAT IS THE NAME OF YOUR RECIPE? STUFFED HENS 

WHAT IS YOUR NAME? ANDI FRIEDMAN 

TYPE QUANTITY, UNIT OF MEASURE* NAME OF ITEM 

WHEN DONE, TYPE »0,END,0' 

? 6*N, GAME HENS 

? . 5, C, BUTTER 

? 4, C ONIONS 

? 2, C, BREAD CRUMBS 

? .25,PT,WINE 

? 0,END,0 

BAKING TEMPERATURE? 350 
BAKE HOW LONG? 45 MINUTES 



DIRECTIONSs 

? WASH INSIDE OF HENS AND DRAINWELL. SPRINKLE HENS INSIDE 

? AND OUT WITH SALT AND PEPPER. SPOON STUFFING MIXTURE INTO 

? CAVITIESJ DO NO PACKING. SEW OPENING. ROAST HENS UNCOVERED. 

? END 



STUFFED HENS 



FROM THE KITCHEN OF ANDI FRIEDMAN 



INGREDIENTS? 




6 


GAME HENS 


US ML 


BUTTER 


946 ML 


ONIONS 


473 ML 


BREAD CRUMBS 


118 ML 


WINE 



WASH INSIDE OF HENS AND DRAINWELL. SPRINKLE HENS INSIDE 
AND OUT WITH SALT AND PEPPER. SPOON STUFFING MIXTURE INTO 
CAVITIES; DO NO PACKING. SEW OPENING. ROAST HENS UNCOVERED* 
BAKE AT 176.667 DEGREES FOR 45 MINUTES 
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10 DIM Q(40),U$(40),I$(40),D$(10) 

20 STRINGS 80 

30 PRINT 

40 PRINT 

50 PRINT 'RECIPE CONVERTER' 

60 PRINT 

70 PRINT 'CONVERTS RECIPES FROM [CUSTOMARY] TO METRIC 

80 PRINT 

82 PRINT 'WHAT IS THE NAME OF YOUR RECIPE'; 

84 INPUT N$ 

86 PRINT 'WHAT IS YOUR NAME'; 

88 INPUT K$ 

90N=1 

100 INPUT Q(N),U$(N),I$(N) 

1 10 IF U$(N) = 'END' THEN 140 

120N = N+1 

130 GO TO 100 

140N = N-1 

150 PRINT 

160 PRINT 'BAKING TEMPERATURE'; 

170 INPUT T 

180LETT = (T-32)*(5/9) 

190 PRINT 'BAKE HOW LONG'; 

200 INPUT T$ 

210 PRINT 

220 PRINT 'DIRECTIONS:' 

230J = 1 

240 INPUT D$(J) 

250 IF D$(J) = 'END' THEN 280 

260LETJ = J + 1 

270 GO TO 240 

280 LET J = J- 1 

290 PRINT 

300 PRINT 

302 PRINT 

306 PRINT 

310 PRINT N$;TAB(28);'FROM THE KITCHEN OF ';K$ 

320 PRINT 

330 PRINT INGREDIENTS:' 

335 FOR M = l TON 

340 RESTORE 

350FORL = lTO7 

360 READ 0$,P$,C 

370 IF U$(M) = OS THEN 420 

380 NEXT L 

390 PRINT 'ILLEGAL UNIT.. .DISREGARDED' 

400 GO TO 430 

420 PRINT INT(Q(M)*C+ .5);' ';P$;TAB(8);I$(M) 

430 NEXT M 

440 PRINT 

450 FOR M=l TO J 

460 PRINT D$(M) 

470 NEXT M 

480 PRINT 'BAKE AT';T;' DEGREES ';T$ 

490 PRINT 

500 PRINT 

510 GO TO 30 

520 DATA T > ML,4.929,TB,ML,14.786,C,ML ) 236.575 ) OZ,ML,29.572 

530 DATA PT ) ML,473.15,QT,ML,946.4 ) N,",1 

9999 END 

ANALYSIS 

The problem in converting a recipe written in the English 
system of units to the metric systems involves not only the 
English-to-metric conversion but conversion of the many units 
of kitchen-measure to standard units. To keep the program to 
a reasonable length it is best to restrict the number of English 
units used, six in the sample program, and provide the conver- 
sion factor within the program. The sample program has the 
conversion factors in the DATA statements, lines 520 and 530. 

The design of the program permits the user to enter all 
quantities in English units, including temperature, and then 
input the verbal instructions. Time is inputed so that it is 
available for output but, obviously, does not need conversion. 
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The Ancient and Honorable Game of Nim 



The ancient Chinese game of NIM is a fascinating one. 
Philosophers of the highest order used to play the game 
for serious stakes. 

Essentially the game goes like this: a pile of stones is 
placed before each man. The pile may contain any 
number of stones. The number is known to both 
players. (Fifteen is a good number to start with). 

Each man, at his turn, must take at least one and not 
more than three stones. Players alternate until the last 
stone is taken. The player who takes the last stone loses. 

Program the computer to play NIM for a pile of fifteen 
stones, marbles, lacrosse balls or whatever. Extra credit 
will be given for a program which can play with any 
number of objects. Make the program interactive, so 
that someone with little knowledge of the computer or 
the game can understand it. 

References: 

Kemeny and Kurtz, Basic Programming, pp. 78-81. 
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NEW GAME! 

DO YOU WISH TO CHOOSE LIMITS 
? NO 

RULES FOR THIS GPHE ARE* 
YOU MAY REMOVE FROM 1 TO 
8 PIECES! 

WHOEVER REMOVES THE LAST 
PI ECE LOSES! ! ! 

WE START WITH 65 OBJECTS! 

YOUR MOVE? 1 
MY MOVE I S 6 

NEW TOTAL IS 58 



YOUR MOVE? 3 
MY MOVE I S 7 

NEW TOTAL I S 48 



05 RANDOMIZE 

10 PRINT 'DO YOU WISH TO CHOOSE LIMITS' 

20 INPUT A$ 

30 IF A$ = 'NO' THEN 120 

40 PRINT 'THEN INPUT THE MAX CHOICE AND A PILE NUMBER' 

50 INPUT K,N 

60 GO TO 140 

120LETN = 20 + INT(80*RND(-1)) 

130LETK = 5 + INT(10*RND(-2)) 

140 PRINT 'RULES FOR THIS GAME ARE* ' 

150 PRINT 'YOU MAY REMOVE FROM 1 TO ';K;' PIECES!' 

160 PRINT ' WHOEVER REMOVES THE LAST PIECE LOSES! ! !' 

170 PRINT 

180 PRINT 'WE START WITH ';N; ' OBJECTS!' 



YOUR MOVE? 2 
MY MOVE I S 7 



190 PRINT 

210 PRINT 

220 PRINT 'YOUR MOVE'; 

230 INPUT X 

240 IF X>K THEN 270 

250 IF X<1 THEN 270 

260IFX<=NTHEN310 

270 PRINT 'ILLEGAL MOVE 

280 PRINT 

290 GO TO 220 

310LETZ = 

320LETN = N-X 

330 IF N>0 THEN 410 

340 PRINT'*** I WIN***' 

350 PRINT 

360 PRINT 

370 PRINT 'NEW GAME!' 

380 PRINT 

390 GO TO 05 



410LETZ = 

420 LET Q = INT((N-1)/(K + 1)) 

430LETY = N-1-Q*(K+1) 

440 IF Y = THEN 530 

450LETN = N-Y 

460 PRINT 'MY MOVE IS ';Y 

470 PRINT 

480 IF N = THEN 600 

490 PRINT 'NEW TOTAL IS ';N 

500 PRINT 

510GOTO210 

530 IF N>1 THEN 570 

550LETY = 1 

560 GO TO 450 

570 LET Y = 1 + INT(K*RND(-3)) 

580 GO TO 450 

600 PRINT '*****YOU WIN*****' 

620 GO TO 350 

700 END 



NEW TOTAL IS 39 



YOUR MOVE? 2 
MY MOVE IS 4 

NEW TOTAL IS 33 



YOUR MOVE? 5 
MY MOVE I S 8 

NEW TOTAL I S 20 



YOUR MOVE? I 
MY MOVE IS 1 

NEW TOTAL I S 18 



YOUR MOVE? 8 
MY MOVE IS 5 



ANALYSIS 

This program plays a version of NIM with one pile. The 
user is allowed the option of selecting the numbers or the com- 
puter will generate random rules in lines 120 and 130. The 
computer selects its move in lines 420 and 430. The reader is 
invited to verify the strategy. 

The computer can be beaten only if it allows the user to go 
first which it does each time. Notice there are no random 
numbers generated in the computer phase of the strategy. It 
can only be beaten by making the proper play on each move. 
The first move is critical. To win, add the lower and upper 
limit — for example, 8+ 1 =9 in the output. Notice that 63 is 
the closest multiple of 9 less than 65. Add 1 to 63 and make 
sure the computer takes its turn with one more than a multiple 
of 9 available each time. Once the first move has been made 
simply take enough to make the computer's choice and your 
choice total 9. 

The magic numbers for that particular game would be 64, 
55, 46, 37, 28, 19, 10. If the computer has that many left on its 
turn it will lose if you make your total and its total add to 9. 
Study the sample game in which the user won more carefully. 



NEW TOTAL I S 5 



YOUR MOVE? 4 
MY MOVE I S 1 

*****YOU WIN***** 
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Computer Poker 

A safe and educational method for gambling can be 
devised using the computer. Have the computer 
generate random numbers. Then devise a technique for 
translating these numbers into suits and rank. Be sure 
you keep track of what has been dealt. Perhaps you can 
teach the computer how to deal for a couple of forms of 
poker. 

Leave as an option the number of cards to be dealt as 
well as drawn. A sophisticated version of this program 
could also declare a winner and keep track of the bets 
and winnings. 

Refer to the chart in the Appendix for the relative odds 
against and values of each type hand. It should be a pro- 
gram that will accomodate up to six people. Be sure the 
random number generator is set to produce a different 
set of random numbers each time. Otherwise the deck 
will never get shuffled. 
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HOW MANY HANDS 
? 2 



DO YOU WANT DEALT (MAX 10) 



HAND # 1 

SEVEN OF HEAPTS 
KING OF HEARTS 
SEVEN OF CLUBS 
THFEE OF CLUES 
SEVEN OF SPADES 



HAND # 2 

QUEEN OF HEAPTS 
TEN OF HEARTS 
ACE OF HEAPTS 
FIVE OF HEARTS 
FIVE OF CLUBS 

HOW MANY HANDS DO YOU WANT DEALT (MAX 10) 
? 2 

HAND # 1 

EIGHT OF CLUBS 
THFEE OF HEARTS 
THREE OF DIAMONDS 
FIVE OF SPADES 
JACK OF CLUBS 



HAND # 2 

SEVEN OF SPADES 
SIX OF DIAMONDS 
TEN OF SPADES 
EIGHT OF SPADES 
KING OF DIAMONDS 



100 DIM X(52),F$(13),S$(10) 

110 RANDOMIZE 

120 FOR 1 = 1 TO 51 

130LETX(I) = I 

140 NEXT I 

150FORS = 0TO3 

160 READ S$(S) 

170 NEXT S 

180 FOR F = TO 12 

190 READ F$(F) 

200 NEXT F 

210 PRINT 'HOW MANY HANDS DO YOU WANT DEALT (MAX 10)' 

220 INPUT N 

230 PRINT 

240 FOR B=l TON 

250 PRINT' HAND #';B 

260 PRINT 



270 FOR A=l TO 5 

280LETI = INT(52*RND) 

290LETY=X(I) 

300 IF Y<0 THEN 280 

310LETX(I) = -1 

320LETS = INT(Y/13) 

330LETF = Y-13*S 

340 PRINT F$(F);' OF ';S$(S) 

350 NEXT A 

360 PRINT 

370 PRINT 

380 NEXT B 

390 DATA DIAMONDS,HEARTS,CLUBS,SPADES 

400 DATA TWO,THREE,FOUR,FIVE,SIX,SEVEN,EIGHT,NINE 

410 DATA TEN, JACK.QUEEN.KING.ACE 

420 END 
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HERE IS THL DEAL 

1 JS 

2 3S 

3 5D 

a 6D 

5 8H 
D0 Y0U WANT ANY CARDS? YES 
H0W MANY CARDS? 4 

TYPE THE NUMBER 0F THE CARD T0 BE DISCARDED. 
? 2 
? 3 
? 4 
? 5 

1 JS 

2 5H 

3 4D 

4 iOD 

5 6S 

D0 Y0U WISH T0 BET, CALL, 0R F0LD? F0LD 
Y0U N0W HAVE S 9980 
I N0W HAVE $ 10020 
HERE IS THE DEAL 

1 9H 

2 6H 

3 JD 

4 QD 

5 8C 

D0 Y0U WANT ANY CARDS? YES 
H0W MANY CARDS? 3 

TYPE THE NUMBER 0F THE CARD T0 BE DISCARDED. 
? 1 
? 2 
? 5 
! AH 

2 2S 

3 JD 

4 QD 

5 2C 

D0 Y0U WISH T0 BET, CALL, 0R F0LD? BET 

I F0LD. 

Y0U N0W HAVE S 10000 

I N0W HAVE $ 10000 
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15 RANDOMIZE 

20 R = S = 10000 

40 FOR X = 1 TO 9 READ G$(X) 

50DIMC$(52),C(52),S(52) 

60FORX=0TO51 

70 READ C$(X),C(X),S(X) 

80 NEXT X 

90FORX = lTO60 

100A = INT(52*(RND)) 

110B = INT(52*(RND)) 

120C$(A)==C$(B) 

121C(A)==C(B) 

122S(A)==S(B) 

123 NEXT X 

124 FOR X = TO 15 
125B = 51-X 
126C$(B)==C$(X) 
127C(X)==C(B) 
128S(X)== S(B) 
129 NEXT X 

131E = B = Q = 

134R = R-20 

135S = S-20 

136T = T + 40 

140 PRINT 'HERE IS THE DEAL' 

150 FOR X = TO 4 

160 PRINT X + l;' ';C$(2*X) 

163N$(X)= C$(2*X) 

165N(X,0)= C(2*X) 

166N(X,1)= S(2*X) 

171M(X,1)= S(2*X + 1) 

172M$(X)= C$(2*X+1) 

173M(X,0) = C(2*X + 1) 

180 NEXT X 

190 PRINT 'DO YOU WANT ANY CARDS'; 

200 INPUT A$ 

210IFA$ = 'NO'THEN321 

220 PRINT 'HOW MANY CARDS'; 

230INPUT A 

235Z=10 

237 PRINT 'TYPE THE NUMBER OF THE CARD TO BE DISCARDED. 

240 FOR X= 1TOA 

250 INPUT D(X) 

270 NEXT X 

280 FOR X = 1 TO A 

285D(X) = D(X)-1 

290 N(D(X),0) = C(Z) 

291N(D(X),1)= S(Z) 

292N$(D(X)) = C$(Z) 

310Z = Z+1 

320 NEXT X 

321 FOR X = TO 4 PRINT X + 1 ,N$(X) 

322 GO SUB 330 

323 GOTO 510 
330FORX=0TO4P(X) = Q(X) = F(X) = Y(X) = 

331 TRACE ON 

332 FOR X = TO 3 
340FORY = X + lTO4 

350 IF M(X,0) > M(Y,0) THEN 370 
359M(X,0)== M(Y,0) 
360M(X,1)== M(Y,1) 
361M$(X)== M$(Y) 
370 NEXT Y 
380 NEXT X 

390 FOR X = TO 3 STEP Y(X) + 1 
400 FOR Y = X + 1 TO 4 
410IFM(X,0)> M(Y,0) THEN 440 
420Y(X)= Y(X) + 1 



440 IF M(X,0) > M(Y,0) + (Y-X) THEN 470 

450P(X) = P(X) + 1 

470 M = M 

490 NEXT Y 

495F(M(X,1)) = F(M(X,1)) + 1 

500 NEXT X 

501F(M(4,1)) = F(M(4,1)) + 1 

505 RETURN 

510FORX = 0TO4 

530Q = Y(X) + Q 

540 NEXT X 

541 IF Q>0 THEN 680 
560FORX=0TO3 
580 NEXT X 
590FORX = 0TOl 
600IFP(X)=>3THEN750 
610 NEXT X 

620 FOR X = 1 TO 4 

630M(X,0) = C(Z) 

631M(X,1) = S(Z) 

632M$(X) = C$(Z) 

640Z = Z + 1 

650NEXTX 

660 GO SUB 330 

670 GO TO 1010 

680 FOR X=0 TO 4 

690IFY(X)> THEN 720 

700M(X,0)= C(Z) 

701M(X,1) = S(Z) 

702M$(X) = C$(Z) 

710Z = Z+1 

720X = X + Y(X) 

721 NEXT X 

730 GO SUB 330 

740 GO TO 1010 

750IFP(0)=4THEN1010 

760FORX=0TO3 

770IFP(X)=4THEN1010 

780IFP(X)<3THEN870 

790 FOR Y = TO 4 

810M(X,0) = C(Z) 

815M$(X) = C$(Z) 

816Z = Z + 1 

820M(X,1) = S(Z) 

840 NEXT Y 

850 GO SUB 330 

860 GOTO 1010 

870 NEXT X 

880 IF P(0) = 4 THEN 1010 

890FORX = 0TOl 

900 IF P(X)<3 THEN 1000 

910FORY = X + lTO4 

920 IF M(X,0) < = M(Y,0) + Y-X THEN 950 

930M(Y,0) = C(Z) 

931M(Y,1) = S(Z) 

932M$(Y) = C$(Z) 

950 NEXT Y 

960GO SUB 330 

970 GO TO 1010 

1000 NEXT X 

1010 PRINT'DO YOU WISH TO BET,CALL,OR FOLD' 

1020 INPUT B$ 

1021E = E + 1 

1033 IF B$ = 'FOLD' THEN 1040 

1034 IF E= 1 THEN 1080 

1036 IF B$ = 'BET' THEN 2040 

1037 IF B$ = 'CALL' THEN 2240 
1040R = R + T + B 
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1050T = 

1055 B = 

1060 GOTO 1360 

1080 FOR X= 1T0 3 

1090Q(Y(X) + 1) = Q(Y(X) + 1) + 1 

1091X = X + Y(X) 

1095 NEXT X 

1100IFQ(4)<1 THEN 1150 

1110B = R 

1120R = 

1130D = 20 

1 135 D$ = 'FOUR OF A KIND' 

1 140 GOTO 2040 

1150IFQ(3)<1 THEN 1250 

1160IFQ(2)<1 THEN 1210 

1170B = R 

1180R = 

1190D = 20 

1191 D$= 'FULL HOUSE' 

1200 GOTO 2040 

1210B = INT(.5*R) 

1220R = R-B 

1230D= 10 

1231D$ = '3 0FAKIND' 

1240 GO TO 2040 

1250IFQ(2)<2THEN1300 

1260B = INT(.25*R) 

1270R = R-B 

1271 D$= '2 PAIR' 

1272 D = 10 
1280 GOTO 2040 
1300IFQ(2) = 1 THEN 1380 
1330 PRINT T FOLD.' 
1340S = S + T 

1350T = 

1360 PRINT'YOU NOW HAVE $';S 
1370 PRINT'I NOW HAVE $';R 
1375 GO TO 90 
1380IFM(X,0)< 10THEN1390 

1390 PRINT' WHAT IS YOUR BET'; 

1391 TRACE ON 

1400 INPUT A 

1401 PRINT D$ 

1410 IF A> 100 THEN 1330 

1411 D$ = 'PAIR' 
1420 M = M 
1421S = S-A 
1422R = R-A 
1423T = T + 2*A 
1425 PRINT 'I CALL' 

1430 PRINT 'WHAT DO YOU HAVE;' 

1440 PRINTTNPUT WHAT YOU HAVE, RANK' 

1450 INPUT I$,I 

1460 FOR X = l TO 9 

1470 IF D$ <> G$(X)THEN 1640 

1480 IF I$ = G$(X) THEN 1510 

1490 PRINT T HAVE';D$,W 

1495 FOR X = TO 4 PRINT X + 1 ,M$(X) 

1500GOTO1040 

15 10 IF KW THEN 1490 

1520 PRINT 'WHAT IS THE RANK OF YOUR HIGH CARD' 

1530 INPUT I 

1 540 IF 1 = M(0,0) THEN 1570 

1545IFI>M(0,0)THEN1660 

1550 PRINT 'MY HIGH CARD IS A ';M(0,0) 

1560 GO TO 1040 

1570 PRINT 'THE HAND IS A TIE ' 

1610R= R + B 



1620 B = 

1630 GO TO 90 

1 640 IF 1$ = G$(X) THEN 1 660 

1650 NEXT X 

1660 FOR X = 0TO4 

1670M$(X)==N$(X) 

1680M(X,0)==N(X,0) 

1690M(X,1)==N(X,1) 

1710 NEXT X 

1720 GO SUB 330 

1730 FOR X = TO 3 

1740IFF(X)<4THEN1782 

1741 IFP(0)< 4 THEN 1745 

1 742 X$ = 'STRAIT FLUSH' 

1743 GO TO 2000 
1745 X$ = 'FLUSH' 

1780 NEXT X 

1781 GOTO 1810 
1782IFP(0)<4THEN1780 
1790X$= 'STRAIT' 
1800GOTO2000 

1810 FOR X=0 TO 4 
1820Q(Y(X) + 1) = Q(Y(X)+1)+1 
1821X = X + Y(X) 
1830 NEXT X 

1 840 IF Q(4) < 1 THEN 1 870 
1 850 X$ = 'FOUR OF A KIND' 
1860 GO TO 2000 
1870IFQ(3)<1 THEN 1930 
1880 IF Q(2)<1 THEN 1910 
1 890 X$ = 'FULL HOUSE' 
1900 GO TO 2000 
1910 X$ = '3 OF A KIND' 
1920 GO TO 2000 
1930IFQ(2)<2THEN1960 
1940X$ = '2PAIR' 
1950 GO TO 2000 
1960IFQ(2)<1 THEN 1990 
1970X$= 'PAIR' 
1980 GO TO 2000 
1990 X$ = 'ZIP' 

2000 IF 1$ = X$ THEN 1 340 

2001 PRINT 'YOU ACTUALLY HAD '; TAB(45);X$ 
2010 PRINT ' YOUTRIED TO CHEAT ME ! ! ' 

2020 PRINT 'YOUR MONEY IS FORFEIT' 
2030 STOP 

2040 FOR X = 4 TO STEP -1 

2041 IF Y(X) > THEN W = M(X,0) 

2042 NEXT X 

2045 PRINT 'WHAT IS YOUR BET'; 

2050 INPUT A 

2060 IF S-A > = THEN 2090 

2070 PRINT 'YOU DON"T HAVE THAT MUCH' 

2081 IF + A>=C THEN 2090 

2082 PRINT 'YOUR BET IS SHORT OF EVEN A CALL' 

2083 GO TO 2045 

2090 IF V < = R + B THEN 2093 

2091 PRINT 'YOU CAN"T BET OVER WHAT THE HOUSE HAS' 

2092 GO TO 2045 
2093O = O + A 
2100T = T + A 
2110V = INT(O-C) 
2120S = INT(S-A) 
2123T = T + V 

2125 IF V> 10*D THEN 2280 
2140F = INT(10*(RND)) 
2150F = D*(F + 1) 
2160 IF F<V THEN 2140 
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2170C = C + F 

2180T = T + F 

2185B = B-F 

2190 IF INT(C) = INT(O) THEN 1420 

2200 PRINT 'I BET $';F 

2210 PRINT 'YOU NOW HAVE $';S 

2220 PRINT 'I NOW HAVE $';R + B 

2230 GO TO 1010 

2240S = INT(S-C + O) 

2250T = T + INT(C-O) 

2260 GO TO 1430 

2280 IF V> 16*D THEN 1420 

2281 F= INT(6*(RND)) 
2290F = D*(F+1) 
2291F = F+10*D 

2292 GO TO 2281 

2299 DATA 'STRAIT FLUSH' 

2300 DATA 'FOUR OF A KIND', 'FULL HOUSE' 

2301 DATA 'FLUSH', 'STRAIT', '3 OF A KIND', '2 PAIR' 

2302 DATA 'PAIR', 'ZIP' 

2400 DATA '2C',2,0,'2D',2,1,'2H',2,2,'2S',2,3 

2401 DATA '3C',3,0,'3D',3,1,'3H',3,2,'3S',3,3 

2402 DATA '4C',4,0,'4D',4,1,'4H',4,2,'4S',4,3 

2403 DATA '5C',5,0,'5D',5,1,'5H',5,2,'5S',5,3 

2404 DATA '6C',6,0,'6D',6,1,'6H',6,2,'6S',6,3 

2405 DATA '7C',7,0,'7D',7,1,'7H',7,2,'7S',7,3 

2406 DATA '8C',8,0,'8D', 8,1, '8H',8,2,'8S',8,3 

2407 DATA '9C',9,0,'9D',9,1,'9H',9,2,'9S',9,3 

2408 DATA T0C',10,0,T0D', 10,1, '10H',10,2,'10S', 10,3 

2409 DATA 'JC',11,0,'JD', 11, 1,'JH',11,2,'JS',1 1,3 

2410 DATA 'QC',12,0,'QD', 12,1, 'QH',12,2,'QS', 12,3 

2411 DATA 'KC',13,0,'KD',13,1,'KH',13,2,'KS', 13,3 

2412 DATA 'AC, 14,0,'AD', 14,1, 'AH', 14,2, 'AS', 14,3 
20000 END 



ANALYSIS 

This program could be more sophisticated. It just deals a 
five-card hand to as many players as you specify. The name 
POKER could just as well have been any other card game 
which can be played with five cards. 

Line 110 shuffles the deck. The loop from 120 to 140 keeps 
track of cards dealt. In 310, if a card has been dealt it is 
negated. The S loop in 150 establishes the suit and the Floop 
in 180 the value. These just provide the computer with some 
words or strings to type out and translate from the random 
number generator. 

The actual dealing is done in the A loop in 270. Statement 
280 generates a random number from to 52. Statement 300 
checks to see if the card has already been dealt. Statement 320 
can be seen as the one that establishes the suit and line 330 
establishes the face value of the card. Line 340 simply prints 
out the string equivalents of these numbers. 

It is obvious that JACK is 1 1, QUEEN is 12, etc., in our or- 
dinary numbering scheme. Here, however, JACK is the ninth 
string, QUEEN the tenth, KING the eleventh and ACE the 
twelfth. 

A more sophisticated version which could analyze the hand 
and declare the winner is also included for the ambitious 
reader. 
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Visual Computer Timepiece 



Write a program that will receive two numbers 
separated by a comma as input. These numbers will 
represent the time. 

For example, 10,43 could represent 10:43 o'clock. 

Have the computer print the twelve numbers of the 
clock face in the proper order around a circle and have 
the hands properly positioned so as to indicate the time 
entered. 

Be sure one hand is longer than the other, experiment 
with different symbols for maximum visibility and ef- 
fect. 

No reference necessary here. Just your own ingenuity. 
Don't worry about A.M. and P.M. The clock can't tell 
the difference, so why should you! 
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Melody Transportation by Computer 



Write a program to transpose a melody from one key to 
any other key. 

You'll have to devise a method of entering the original 
key along with a notation for sharps, flats and octaves. 

Notes could be entered as letters which are subscripted. 
CI could be made middle C and C2 the next octave 
higher, etc. 

A more difficult rendition of the problem would involve 
printing out the transposed music on a staff. That 
would mean you would have to input the duration of 
notes and devise a scheme for printing them. 



I. # 

) 
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The Magic Century Mark 



Take the digits 1 through 9, written in increasing order, 
and insert either of the following three symbols between 
them: 

+ (addition) - (subtraction) blank (run the digits) 

Find all the different ways that will produce the 
arithmetic value of 100. 



One example is the one below: 

1+23-4 + 56 + 7 + 8 + 9: 



100 



Since there are three possibilities and eight spots to be 
filled, there are 3 8 ways to test, that is 6561 possibilities. 

About 10 of them will produce 100. 
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THE MAGIC CENTURY MARK 



1+2+3-4+5+6+78+9 =100 

1+2+34-5+67-8+9 = 100 

1+23-4+5+6+78-9 

1 +23-4+56+7+8+9 

12+3+4+5-6-7+89 

12+3-4+5+67+8+9 

12-3-4+5-6+7+89 

123 + 4-5 + 67 -89 = 100 

123 + 45 -67 +8-9 = 100 



= 100 
= 100 

= 100 
= 100 

• 100 



123 -4 -5 -6-7+8-9 = 100 
123 -45 -67 + 89 = 100 



95 PRINT "THE MAGIC CENTURY MARK" 

96 PRINT 

97 PRINT 

100 DIM A(9)>BC9) 

105 FOR 1=2 TO 9 

110 LET ACI)=0 

120 NEXT I 

132 FOR 1=1 TO 9 

134 LET BCI)=I 

136 NEXT I 

140 FOR 1=2 TO 9 

150 IF ACIX>1 THEN 160 

152 LET B(I)=-B(I) 

154 GOTO 180 

160 IF A(I)<>2 THEN 180 

162 LET B<I)=SGNCBCI-1))*(ABS 

170 LET BCI-1)=0 

180 NEXT I 

190 LET A=0 

195 FOR 1=1 TO 9 

200 LET A=A+B(I) 

210 NEXT I 

220 IF A<>100 THEN 235 

221 LET F=0 

222 FOR 1=1 TO 9 

223 IF B(I)=0 THEN 230 

224 IF BCIX0 THEN 228 

225 IF F=0 THEN 228 

226 PRINT "+"JBCI)J 

227 GOTO 230 

228 PRINT B(I); 

229 LET F=l 

230 NEXT I 

231 PRINT " = 100" 

235 LET B(l)=l 

236 LET A(9)=A(9)+1 

237 FOR 1=9 TO 3 STEP -1 
250 IF ACIX3 THEN 265 
260 LET A(I)=0 

262 LET A(I-1)=ACI-1)+1 

263 NEXT I 

265 IF AC2X3 THEN 132 
280 END 



<B<I-1))*10+BCD) 



ANALYSIS 

The program examines the single digits, 1 to 9, groups 
(packs) the digits, without reordering, and assigns algebraic 
signs to spaces not removed by packing. The numbers in the 
modified pattern are summed algebraically and the sum check- 
ed to see if it is 100. 

Within the program, B(I) represents the i th number and, 
A(I) represents the spaces before the i th number. Initially, the 
subscript vaue of each B(I) is assigned the value of / and all 
A(I)'s are set to zero. An A(I) of represents a + , 1 is -, and 2 
is a deleted space. Line 162 increases B(I) to the next factor of 
10 when needed, line 200 summing the sequence, and line 220 
provides the sum. Output is done by lines 222-230. 

A(I) may have one of only three values: 0, 1, or 2, and the 
value is assigned from the right end of the string. 
A ^designates the sign between numbers so A(2) is the space 
between 1 and 2 and, at the other end, A(9) is the space bet- 
ween 8 and 9. The pattern of A(I) is generated as shown 
below: 

Oyields 1 +2 + 3+4 + 5+6 + 7 + 8 + 9 + 
000000 1 yields 1+2 + 3 + 4 + 5+6 + 7 + 8-9 
2 yields 1 +2 + 3+4 + 5+6 + 7 + 89 

and so forth. Note that this is nothing more than a modulo 3 
counter. The counting sequence is done in lines 235-265. 
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Readable Paper Tape Output 



The neophyte in computer circles is often confused and 
bewildered by the ASCII code (American Standard 
Code for Information Interchange). The actual con- 
figuration of holes in paper tape is practically 
undecipherable without a handbook. 

Write a program to punch out on paper tape any 
alphanumeric (worded) expression which you may in- 
put. Some BASIC compilers have CHANGE statements 
which could prove helpful. Some time-sharing com- 
panies also have subroutines available to do such things. 

It is a difficult and time-consuming task and is not 
mathematical in its nature. It is however an outstanding 
exercise in statement manipulation and is not beyond 
the scope of the talented student. 



9999 
99999 



999999 
•••««© 



•«•©•• •••••© 

•••••• 99999© 

99 •• 



99 9 9999 

9999 9999 

© @@ ©@ 

9 9® 999999 

9 9 999999 



99 

99 
9 



9999 

9999 

99 

999999 

999999 



9999 
9999 

99 

99999< 
99999< 
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Computer Verse Forms 



Give the computer a simple but adequate vocabulary 
list. 

Have the computer compose some short verses of 
poetry. This can be done by a random selection process 
or by more careful choosing. Be sure to develop a rhyme 
scheme or scanning pattern and develop an algorithm to 
test the grammatical nature of your sentences. 

Try to limit your sequences to grammatically possible 
ones. The Japanese verse form containing exactly 17 
syllables, known as haiku may be worth investigating. 

Your English teacher may wish to collaborate. 
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One of the Unsolved Problems of Arithmetic 



Try to find three integers x, v, and z such that: 

(x + y + z) 3 = xyz 

None of the three may equal zero. The problem 
originally proposed by Werner Mnich, a student at War- 
saw University, is to prove that three rationals u, v, and 
w exist such that: 

U + V + w = uvw = 1 

Mnich transformed both of the above equations into an 
equivalent question— that is, whether there existed in- 
tegers a, b, and c such that: 

a/b + b/c + c/a = 1 

The proof of any of the above would be a solution to 
one of the unsolved problems of arithmetic. 



HINT: Solution of the equation involving integers is to 
be recommended. Loops are ideally suited to integral 
problems because it is possible to include all integers 
between specified limits. Since the rationals and the 
reals are everywhere dense problems of this nature are 
out. 

References: 

W. Sierpinski, Some Unsolved Problems of 

Arithmetic. 
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Two IVfore of the Unsolved Problems of 
Arithmetic 



A couple of problems that look like quickies but really 
aren't: 

1) Do there exist any solutions to the equation 

x* - yy= z z where x, y, and z are odd and greater 
thanl? 

2) Do there exist three successive natural numbers 
each of which is a power of a natural number (expo- 
nent greater than 1)? 
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A TRIGONOMETRIC GENERATION OF PASCAL'S TRIANGLE 



n 



sin(nx) + cos(nx) 



coefficients 



[1] cos x + [1] sin x 
[1] cos 2 x + [2] sin x cos x - [1] sin z x 



[1] cos 3 x + [3] sin x cos 2 x - [3] sin 2 x cos x 
_ [1] sin3 x 

a Z 9 9 

[1] cos x +[4] sin x cos x - [6] sin x cos x 

T A 

- [4] sin° x cos x + [1] sin* x 



1 1 
12 1 

3 3 
4 6 4 



a) This is not simply a remake of the binomial theorem. As it turns out 
sin(nx) + cos (nx) f (sin x + cos x) n for all 'n ! . 

b) Investigate the following however: the sine and cosine can be related 
as follows, 

[cos(nx) + i sin(nx)] = (cos x + i sin x) n where i 2 = -1. 
The above is Imown as DEMOIVRE'S THEOREM! 
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ASCII Character Code 
(Decimal Value) 



)ecimal 


ASCII 




Value 


Character 




32 


SP 


SPACE 


33 


! 




34 


" 




35 


# 




36 


$ 




37 


% 




38 


& 




39 


> 


APOSTROPHE 


40 


( 




41 


) 




42 


* 




43 


+ 




44 


> 


COMMA 


45 


— 




46 






47 


/ 




48 







49 


1 




50 


2 




51 


3 




52 


4 




53 


5 




54 


6 




55 


7 




56 


8 




57 


9 




58 






59 


; 




60 


< 




61 


= 




62 


> 




63 


? 





Decimal 


ASCII 




Value 


Character 




64 


@ 




65 


A 




66 


B 




67 


C 




68 


D 




69 


E 




70 


F 




71 


G 




72 


H 




73 


I 




74 


J 




75 


K 




76 


L 




77 


M 




78 


N 




79 


O 




80 


P 




81 


Q 




82 


R 




83 


S 




84 


T 




85 


U 




86 


V 




87 


W 




88 


X 




89 


Y 




90 


Z 




91 


[ 




92 


\ 


BACKSLASH 


93 


] 




94 


A 


or t 


95 




or- 
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Summary of Statistical Measures 

Measures of Central Tendency: 

Arithmetic Mean = x = £>, 

n 

Median = middle score for n odd sorted scores. Mean 
of two middle scores for n even. 

Mode = the most frequent score. 

Mean - Mode = 3(Mean - Median) 

Geometric Mean = \lx x *x % *Xi*...»x n = G 

Harmonic Mean = 1 

= H 



n x t 

Root Mean Square (RMS) = V I>? 

n 

Note: H< G <x 

Measures of Dispersion: 

Ranee = x - * mn when scores are ordered from 

i\«u^v max mm 

highest to lowest. 

Mean Deviation from Mean = £ | x, - * I 

n 

Variance = a 2 = L|x,-*| 2 



Standard Deviation = a = Vvariance 

Coefficient of Variation = a 

x 

Mean Deviation from Mean = 4_ a 

5 

Normal Distribution Dispersion: 68.27% = mean ± a 

95.45% = mean ± 2a 
99.73% = mean ± 3a 
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Data for Linear Data Regression 
and Correlation Study 



LQ„ 



SAT Verbal 



132 532 

126 538 

127 591 

117 446 

127 538 

120 433 

125 696 

125 591 

133 506 

119 499 

122 519 

134 650 

123 525 

125 387 

122 519 

120 446 

132 519 

134 492 

126 637 

141 598 

141 545 

114 420 

110 486 

141 486 

128 611 

118 453 

123 453 

128 644 

121 571 

121 578 

122 433 

125 578 

126 552 

132 630 

132 552 

134 708 

127 506 

121 512 

138 650 

125 499 

132 i 519 

108 511 

121 446 

128 677 

123 617 

126 644 

125 584 

122 479 

120 519 

133 571 

n = 50 



Note: It is important that the scores remain paired for 
the correlation study. It is necessary to order the scores 
for a regression analysis involving median and mode, 
but you can only order one set of scores for a correla- 
tion. 

Close inspection of the formula for correlation will 
lead you to conclude that order is unimportant unless 
the analysis is done by ranking. 
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Odds Against Drawing A Certain Poker Hand 



HAND 

Royal Flush 
Straight Flush 
Four of a Kind 
Full House 
Flush 
Straight 
Three of a Kind 
Two Pair 
One Pair 
Nothing 

All Possible Hands 



NUMBER POSSIBLE 

4 

36 

624 

3,744 

5,108 

10,200 

54,912 

123,552 

1,098,240 

1,302,540 

2,598,960 



ODDS 

649,739 to 1 

74, 192 to 1 

4, 164 to 1 

693 to 1 

508 to 1 

254 to 1 

46 to I 

20tol 

4 to 3 

Even 
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ASCII CODE FOR EIGHT CHANNEL PAPER TAPE 
(EVEN PARITY) 



A 




a © 


B 




o © 


C 


@@ 


@® 


D 




o © 


E 


©@ 


a ® ® 


F 


®@ 


@® 


G 




8 @©@ 


H 






I 


■®® 


© e ® 


J 


@® 


® o © 


K 




® 8 ®@ 


L 


®@ 


© 9 ® 


M 




® a • ® 


N 




® s ©@ 





@© 


® « @©@ 


P 






Q 


®@ 


©3 @ 


R 


@© 


@ o @ 


S 




• a @@ 


T 


©@ 


@ o ® 


U 




© a ® ® 


V 




© © @© 


W 


@© 


O a ©@© 


X 


®@ 


@® a 


Y 




®® • @ 


z 




®® a ® 









1 


© i 


|® a ® 


2 


@ i 


)® a ® 



[ 
\ 

+ 

T 

] 
< 

> 
? 



RETURN 

LINE FEED 

RUB OUT 



@© a ®® 
© @® a © 

®® e® ® 
@® s@© 

• ©@ ©@@© 
© ®#®* 

@@©o © 

© Q © 
© O ® 

m • a @® 

• a • 

• • a® ® 

• • a®® 

• a®®® 
© ® a 

® © @ a ® 
® © ® a ® 
@®®a ® 
® ®@©@@© 
®@ a 

• @© a @ 
© ® a @® 

@®@ a ® 
© ®@®a®® 

®@@ a ®@© 
® @®®a ®® 
® ® ® a ® 

® ® a®® 
® @ ® a ®®® 

® ® a® ® 
® ®®®a® ® 

® ®a® ® 
® a ® 
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Programming Tricks 



To sum a group of numbers: 
10 S = S + A 



where A is the current value of the variable and S is the partial 
sum. 



2. Test for divisibility: 

20 IFX/K = INT(X/K)THEN.... 

3 . To compute the values after division: 

30 R = X-!NT(X/A) 

4. To exchange the values of two variables: 

40 S = 10 

50 T = 12 

60 W = S 

70 S = T 

80 T = W 

5 . To compute small factorials: 

90 1 = 1 

100 FORX = 1TON 

110 1 = 1*1 

120 NEXTX 

130 END 

6 . To exit from a program with a string test: 

140 INPUT A$ 

150 IF A$ = "YES" THEN STOP 

7 . To decompose an integer into its digits: 

160 X = 123 

170 A = INT(X/100) 

180 B = INT(./*(X-100*A) 

190 C = X-100*A-10*B 

8 . To compute compound interest directly: 

200 FORX = 1TON 

210 l = P*R 

220 P = P + I 

230 NEXTX 

9 . To generate random numbers within a certain range: 

240 RANDOMIZE 

250 T = INT(((B—A) + I)*RND) + A 

10. To round numbers: 

260 X = (INT(X + .5) 

270 X = (INT(10*X + .5))/10 



is true when X is divisible by K. 



makes R the remainder when X is divided by A. 



Lines 60, 70 and 80 execute the exchange by assigning the 
value of S to W, T as the new S, and W (old S) as T. 



Factorial N will be the final value of I. 



Execution will stop when "Yes" is input 



A is hundreds digits of X, 
B is tens digits of X, 
C is units of X. 



where Ris rate of interest, 
I is amount of interest and 
Pis the principal. 



B must be greater than A. 



X to nearest integer. 
X to nearest tenth. 
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11. To convert angle measure: 

290 R = D/57.295779 D degrees to R radians. 

300 D = 57.295779* R R radians to D degrees. 

1 2. To compare two numbers when truncation errors are likely: 

310 IFABS(B— X)<. 00001 THEN... will act as though B equals X. 

13. To conserve paper when printing : 

320 PRINT B(X); will print multiple values of B(X) on a line. 

14. To find the area of a triangle when only its sides are known: 

330 S = (A+B + C)/2 where A, B, and C are sides, T is area. 

340 T = SQR(S*(S-A)*(S-B)*(S-C)) 

15. To find the antilogs of a base 1 logarithm : 

350 Y = 10tX YisantilogofX. 

16. To convert the base of logarithms: 

360 DEF FNL(X) = LOG(X)/LOG(10) gives base 10 logarithms when LOG is base e. 

370 DEF FNL(Y) = LOG(Y)/LOG(A) gives base A logarithms when LOG is logarithm to any other 

base Y. 

17. When multiplying fractions do not multiply numerators and denominators and then divide: 
divide first and then multiply the decimals. 



8. Do not try to decompose a number into its individual digits when it is possible to recompose the digits back to the number. 
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Creative Computing can help you select 
the best computer and get the most out of it. 



With so many new personal com- 
puters being announced and the prices 
coming down so rapidly, isn't the best bet 
to wait a year or so to buy a system? 

We think not. A pundit once observed 
that there are three kinds of people in the 
world: 1) those who make things happen, 
2) those who watch things happen and 3) 
those who wonder what happened. 
Today, it is those who are getting involved 
with microcomputers who are making 
things happen by learning to use 
computers effectively. 

Furthermore, it is not likely that we 
will see the same dramatic price declines 
in future years that have already taken 
place. Rather, one will be able to get more 
capability for the same price. 




The TI-99/4 has excellent color graphics and 
costs $1 1 50 including color TV monitor. 

Which system is for you? 

No two people have exactly the same 
needs. You'll have to determine what 
capabilities are important to you. Key 
variables include: 

• Upper and lower case. Obviously 
vital if you are planning to do word pro- 
cessing or anything with text output. 

• Graphics. Most systems have 
graphics but the resolution varies widely. 
How much do you really need? 

• Color. Some systems are B&W, 
some have 4 colors, others up to 256 
colors. Many colors sounds nice, but do 
you really need 4, or 16, or more? 

• Mass storage. The smaller systems 
are cassette based; larger systems offer 
floppy disks or even hard disks. What size 
data bases do you intend to use and is it 
important to have high-speed random 
access to an entire data base? 

• Languages. Basic is standard but 
increasingly Pascal, Fortran, Cobol and 
special purpose languages are being 
offered. 

• Audio, Speech, Music. Are these 
features important for your planned 
applications? 

• Applications Software. Third party 
software is widely available for some 
systems, non-existent for others. Do you 
need this, or can you write your own? 



Unbiased, in-depth evaluations. 

At Creative Computing, we obtain new 
systems as soon as they are announced. 
We put them through their paces in our 
Software Center and also in the environ- 
ment for which they are intended — 
home, business, or school. We published 
the first in-depth evaluations of the Texas 
Instruments 99/4, Atari 800, TRS-80, Ohio 
Scientific Challenger, Exidy Sorcerer, 
Apple II disk system and Heath H-8. We 
intend to continue this type of coverage, 
not only of systems, but peripherals and 
software as well. 

Sorting : A Key Technique 

While evaluations are important, the 
main focus of Creative Computing maga- 
zine is computer applications of all kinds. 
Many of these require that data be re- 
trieved or sorted. Unfortunately, most 
programming texts focus on the bubble 
sort (or straight insertion) and, very infre- 
quently, another technique (usually de- 
layed replacement) and let it go at that. 

Yet, except for comparison counting, 
the bubble sort is the least efficient. 
Tutorials and articles in Creative Com- 
puting demonstrate that the Shell-Metz- 
ner and Heapsort are from 50 to 13,000 
times as fast as the bubble sort! Consider 
a sort of 100,000 items on a DEC System 
10: 

Bubble sort 7.1 days 

Delayed replacement 3.8 days 

Heapsort 17.3 minutes 

Shell-Metzner 15.0 minutes 

Needless to say, on a microcomputer, a 

bubble sort of even 1000 items is 

agonizingly long. 

Free Sorting and Shuffling Reprint 

Because sorting and shuffling (mixing 
a list of items) is so vital in most program- 
ming, we are making available a 20-page 
reprint booklet on Sorting, Shuffling and 
File Structures along with our May 1979 
issue which has several articles on writing 
user-oriented programs and making the 
most of available memory space. The 
reprint booklet and issue are free with 
1 2-issue or longer subscriptions. 

At Creative Computing, we believe 
that computers can be of benefit to 
virtually every intelligent person in the 





Free reprint booklet and issue with a new sub- 
scription to Creative Computing. 



Contributing editor Ted Nelson (L) is author of 
"Computer Lib/ Dream Machines." Publisher 
David Ahl (R) is a pioneer in computer models, 
simulationsand games. 

country. We do not believe that the 
"Computer priesthood" should confuse 
and bully the public. As Ted Nelson stated 
in the Computer Lib Pledge, we do not 
treat any question as a dumb question, 
since there is no such thing. We are 
against computer terms or systems that 
are oppressive, insulting or unkind, and 
we are doing the best we can to improve or 
replace such terminology or systems. We 
are committed to doing all we can to 
further human understanding and make 
computers easy to understand, inter- 
active wherever possible, and fun for the 
user. The complete Computer Lib Pledge 
is contained in our May 1979 issue which 
we are furnishing free to new subscribers. 

Computer literacy to everyone 

The Creative Computing Software 
Division is participating with Children's 
Television Workshop in an important new 
venture, Sesame Place. These theme 
parks are being designed to bring inter- 
active computer games and simulations 
to young children (and their parents) and 
remove the mystique of computers from 
the youngest segment of our population. 
In addition, we are participating in pro- 
jects with several school systems and 
museums to write reading comprehen- 
sion and ecology simulations software. 
We are also involved in a major college- 
level computer literacy project. 

As a subscriber to Creative Comput- 
ing, you will benefit from all of these 
activities. Creative Computing is the 
Number 1 software and applications 
magazine. Subscribe today — 12 issues 
for $15 ($9 saving over the newsstand 
price). Or, beat inflation and get 36 issues 
for just $40. Money back if you're not 
satisfied. Send payment or Visa, Master 
Charge or American Express number to : 

Creative Computing 

P.O. Box789-M 

Morristown,NJ07960 
Save time, and call your order toll-free to: 

800-631-8112 
(In NJ call 201-540-0445) 
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The BEST of 

Creative Computing 

UDLUFTIE i 



In this 328 page book are all the articles, 
stories, learning activities, games and 
puzzles that appeared in Creative Com- 
puting Volume 1 . The contents cover the 
gamut of computer applications in education 
and recreation. Over 200 contributors are 
represented from college professor to high 
school student, from U.S. Senator to 
underground cartoonist and from corpora- 
tion president to science fiction author. A 
must for anyone concerned with the role of 
and potential for the computer in society. 

The contents are so diverse and 
numerous there's room here for only a 
sampling. 

Edited by David Ahl. Large format 
paperbound, 328 pages, $8.95. (6A) 



Partial Listing of Contents 



ARTICLES AND COMMENTARY 
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A Computer in the Classroom? 
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• Computers in Education 
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Memoirs of an Ex-Social Security 

Number Giver — Campbell 
Crime, Cops, Computers — Malcolm 
Prosecutor Management Information 
System — Ahl 
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Computer Abuse — Snyder 



PEOPLE. PLACES, AND THINGS 

Nicholas Copernicus 

Evelyn Roth 

PILOT 73 Information Exchange — 

Nolan Bushnell — Todd 

Playing PONG to Win — Ahl 

Your Own Computer? — Ahl 

Introducing Computer Recreations 

Corp, — Todd, Guthrey 
Creative Computing Compendium 
Flying Buffalo — Loomis 
Compleat Computer Catalogue 
National Computers in Education 

Conference? 
Public Access Questionnaire — Press 
Still A Few Bugs in the System — Ahl 
Computer-Generated Super-8 Movies 
NSF Awards 
Hewlett-Packard Computer Curriculum 

Project 
Can You Solve the Energy Crisis? 
Good Things From Oregon 
Letters to the Editor 
T-Shirt Ad 



he BEST 
Creative 




Partial Listing of Contents 



unuimF p 



ARTICLES AND COMMENTARY 
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• Literacy, Philosophy, Opinion 

What is Computer Literacy - Moursund 
Computer Literacy Quiz - Moursund 
A Fable- Spero 
Let Us First Make It- Taylor 
Some Thoughts - Lees 
Information Anyone? - Griffith 
The Government Dinosaur- Winn 
The Magic of EFTS -Ahl 
•Computers in Education 
Instructional Computing in Schools - Ahl 
Should the Computer Teach the 

Student, or Vice-versa? - Luehrmann 
The Art of Education Blueprint for a 

Renaissance - Dwyer 
Computing at the University of Texas 
Computers in Secondary Schools - 1975 
Compyouter Fair - Thomas 
The Madness known as 

•Every Person and the Computer 

Amateur Computing - Libes 

A Retail Computer Store? You Gotta Be 

Kidding- Dunion and Roberts 
Grand Opening - Cary 
Polls, Pols, and Power' The Computer on 

the Hustings - Acocella 
An Analytic Examination of 

Creative Computing - Ahl 
How We Spent Our Summer 

Vacation - Lees, et al 
•Art and Poetry 

Toward the Electric Symbol - Mueller 
Producing Computer Poetry - Chisman 
Interview with Carole McCauley 
Once Upon a Computer 
Computers and Beauty 



PUZZLES, PROBLEMS, AND PROGRAMS 

•Puzzles and Problems 

Puzzles, Puzzles, Puzzles - Ahl 
Thinkers Corners, Recreations 
Turning A Puzzle Into A Lesson - Homer 

• For The Calculator 

The Keyboard Game - Yarbrough 
7 Pocket Calculator Games - Rogers 
Calculator Tricks 

• Mathematics and Geometry 
The Mystic Seven - Dickens 

Magic Squares on the Computer - Piele 

Non-Usual Mathematics - Reagan 

The World of Series - Reagan 

Change For A Dollar - Hess 

Sequences - Jessen 

Progression Problems - Reeves 

Seeing is Believing but Simulating 
is Convincing - Koetke 

Computer Generated Aids to Teaching 
Geometric Concepts - Barnes and Stocker 

Geometric Proofs - Kelanic 

Computer Planned Snowmen - McLean 

The Tower of Brahma 
•Non-Mathematical Applications 

Roses Are Red, Computers Are Blue -Ahl 

Haiku Generator - Emmerich 

Prejudice Analysis - Kahn and Gross 

A Prejudiced Analysis - McCarthy 

CMAPS A Basic Program for 
Choropleth Mapping - Cerny 
•Programming Techniques 

Heapsort- Chase 

A Comparison of Sorts - Gnllo 

Days and Dates - Reagan 

Conditional Statements, Searching A List 




336 pages of the best articles, fiction, 
foolishness, puzzles, programs, games and 
reviews from Creative Computing Volume 2. 
A diversity of information and activities so 
staggering it may well be the "one book 
must" you need for your reference and to 
recommend to your friends. A potpourri of 
information on languages and programming 
theory, on artificial intelligence, on com- 
puters in education and in the arts. 67 pages 
are devoted to puzzles, programs and things 
to do. The reviews alone could make the 
book. 

A sampling of the diverse contents is 
listed. 

Edited by David Ahl. Large format, 336 
pages, $8.95. (6B) 
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Fred D'lgnazio and Stan Gilliam 
have created a delightful picture 
book adventure that explains how a 
computer works to a child. Katie 
"falls" into the imaginary land of 
Cybemia inside her Daddy's home 
computer. Her journey parallels the 
path of a simple command through 
the stages of processing in a 
computer, thus explaining the fun- 
damentals of computer operation to 
4 to 10 year olds. Supplemental 
explanatory information on compu- 




ters, bytes, hardware and software 
is contained in the front and back 
end papers. 

Thrill with your children as they 
join the Flower Bytes on a bobsled 
race to the CPU. Share Katie's 
excitement as she encounters the 
multi-legged and mean Bug who 
lassoes her plane and spins her into 
a terrifying loop. Laugh at the mad- 
cap race she takes with the Flower 
Painters by bus to the CRT. 

Written by Fred D'lgnazio and 
illustrated in full color by Stan 
Gilliam. 42 pages, casebound, 
$6.95. (12A) 

A t-shirt with the Program Bug 
is available in a deep purple design 
on a beige shirt. Adult size S,M,L, 
XL. Children's size S,M,L. $5.00. 
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BE A COMPUTER LITERATE 
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Used as a text in many schools, 
this informative, full color book is 
an ideal first introduction to the 
world of computers for children 
aged 10 to 16. The book is divided 
into eight chapters: 

1 Introduction 

2 What are computers 

3 Kinds of computers 



What goes on inside computers 
Communicating with the compu- 
ter 

Language of the computer 
How to write a simple program 
How computers work for us. 
The full color drawings, dia- 
grams and photos found on every 
page of these chapters, coupled 
with the large type, make the book 
easy to read and understand. 

The book contains brief explana- 
tions of how computers are used in 
over sixteen different fields, from 
medicine to law enforcement, art to 
business, transportation to educa- 
tion. 

The simple glossary provided 
will help familiarize beginners with 
essential computer terminology. 

Written by Marion J. Ball and 
Sylvia Charp. Large format, paper- 
bound, 66 pages, $3.95 (6H) 



To illustrate how we think through a problem-Suppose you and 
your friend want to go into business cutting lawns, and you would 
like to cut 5 lawns a day. You might think through the following 
problem steps (algorithm): 
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THE PENNY SWITCH GAMES THAT HELP VOU LEARN AND 
LOVE COMPUTER CIRCUITS 
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JOEWEISBECKER 

CREATIVE COMPUTING PRESS 




Learning how computer circuitry works can 
actually be fun. All you have to do is slide around a 
few pennies. Computer Coin Games presents a series 
of interesting games with full size playing boards 
that trace the paths of electronic signals through 
various simple computer circuits. 

Beginning with the "basic penny switch flip flop" 
the games build in difficulty until the reader is 
creating intricate networks. Why binary math is used 
in computers and how it works, how the computer 
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counts, adds, subtracts, uses a number base, and 
handles letters and words, are all explained in the 
book. 

Play "Tic Tac Toe," "Guess a Word," "Create a 
Pattern" and "Escape the Network." This book is an 
ideal introduction to the complicated concepts of 
computer circuitry. 

Games Magazine said "Whether or not you have 
any experience with computer technology you'll be 
both amazed and delighted by the simplicity of the 
format and the complexity of the play. All you need 
is some common cents." 

Written by Joe Weisbecker and enhanced with 
great cartoons by Sunstone Graphics. 96 pages, 
paperbound, $3.95. (10R) 
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Here is a huge sourcebook of ideas for using 
computers in mathematics instruction. There are 
sections on: 

"Thinking Strategies and How to Solve Problems 
*How to Buy a Microcomputer System 
"Art, Graphics, and Mathematics 
"Computer Assisted Instruction 
"Computer Simulations 
"Programming Style 
"Probability 
"Magic SquaresI and much more. 



One section presents over 250 problems, puzzles 
and programming ideas, more than are found in most 
"problem collection" books. 

Pragmatic, ready to use, classroom tested ideas 
are presented for everything from the most basic 
introduction to binary numbers to advanced tech- 
niques like multiple regression analysis and differen- 
tial equations. Every item discussed has a complete 
explanation including flowcharts, programs, and 
sample runs. 

The book includes many activities that don't 
require a computer. And if you're considering 
expanding your computer facilities you'll find a 
section on how to select a computer complete with 
an invaluable microcomputer comparison chart. 

Although much of the material has appeared in 
Creative Computing, many of those back issues are 
no longer available. Consequently this book meets 
the demand of making available that popular informa- 
tion. 

Edited by David Ah I. Large format paperbound, 
224 pages, $15.95. (12D) 




Basic Computer Games 

Edited by David Ahl, this book con- 
tains 101 imaginative and challenging 
games for one, two, or more players — 
Basketball, Craps, Gomoko, Blackjack, 
Even Wins, Super Star Trek, Bombs 
Away, Horserace. Simulate lunar land- 
ings. Play the stock market. Write poetry. 
Draw pictures. 

All programs are complete with listing 
in Microsoft Basic, sample run and 
description. Basic conversion table in- 
cluded. 125,000 copies in print. 192 pages 
softbound.[6C]$7.50. 




More Basic 
Computer Games 

Contains 84 fascinating and enter- 
taining games for solo and group play — 
evade a man-eating rabbit, crack a safe, 
tame a wild horse, become a millionaire, 
race your Ferrari, joust with a knight, trek 
across the desert on your camel, navigate 
in deep space. 

All games come complete with pro- 
gram listing in Microsoft Basic, sample 
run and description. 192 pages soft- 
bound. [6C2]$7. 50. 



To Order 

Send your check for books plus $2.00 
shipping and handling per order to 
Creative Computing, P.O. Box 789-M, 
Morristown, NJ 07960. NJ residents add 
5% sales tax. Visa, Master Charge or 
American Express are also acceptable. 
For faster service, call in your bank card 
order toll free to 

800-631-8112 
(in NJ, call 201-540-0445) 



creative computing 



P.O. Box 789-M, Morristown, NJ 07960 



Have You Been 

Bitten By The 

Computer Bug? 





The Best of Byte 

This is a blockbuster of a book 
containing the majority of material from 
the first 12 issues of Byte magazine. The 
146 pages devoted to hardware are 
crammed full of how-to articles on 
everything from TV displays to joysticks 
to cassette interfaces and computer kits. 
But hardware without software might as 
well be a boat anchor, so there are 125 
pages of software and applications 
ranging from on-line debuggers to games 
to a complete small business accounting 
system. A section on theory examines 
the how and why behind the circuits and 
programs, and "opinion" looks at where 
this explosive new hobby is heading. 386 
ppsoftbound. $11.95 [6F] 

More Games, Chs 

And Programs 

Shake A J 




Two Free CataSogs 

Send for our big 20-page Book 
Catalog featuring a full line of Creative 
Computing Press and Book Service 
titles, back issues of Creative Computing 
Magazine, t-shirts, posters and games. A 
Sensational Software Catalog of over 400 
outstanding microcomputer programs is 
also available. Each package is outlined 
in detail with accompanying screen 
photos and illustrations. Make the most 
of your computer resources with Creative 
Computing! 



The impact of Com- 
puters on Society and 
Ethics: A Bibliography 

~ ., *u u- REFERENCE 

Gary M. Abshire. 

Where is the computer leading us? Is 
it a menace or a messiah? What are its 
benefits? What are the risks? What is 
needed to manage the computer for 
society's greatest good? Will we become 
masters or slaves of the evolving com- 
puter technology? This bibliography was 
created to help answer questions like 
these. It contains 1920 alphabetical 
entries of books, magazine articles, news 
items, scholarly papers and other works 
dealing with the impact of computers on 
society and ethics. Covers 1948 through 
1979. 128 pp hardbound. $17.95. [12E]. 




Computer Music 
Record 

A recording was made of the First 
Philadelphia Music Festival which is now 
available on a 12" LP record. It features 
eight different computer music synthe- 
sizers programmed to play the music of 
J.S. Bach, J. Pachelbel, Rimsky-Kor- 
sakov, Scott Joplin, Neil Diamond, 
Lennon & McCartney and seven others. 
The music ranges from baroque to rock, 
traditional to rag and even includes an 
historic 1963 computerized singing dem- 
onstration by Bell Labs. $6.00 [CR101]. 

enging Problems 
Than You Can 
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Artist and 
Computer 

This unique book by Ruth Leavitt 
covers the latest techniques in computer 
art, animation and sculpture. In its pages 
35 artists explain how they use compu- 
ters as a new means of self-expression. 
The San Francisco Review of Books said 
"Get yourself a copy of this book if you 
enjoy feeding your mind a diet of 
tantalizing high-impact information." O- 
ver 160 illustrations, some in full color. 
121 pages hardbound [6E] $10.00. Soft- 
bound [6D] $4.95. 
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Wolverton Prints 



Set of 8 computer Myths Explained 

by Monte Wolverton. On heavy stock, 
large 12X17" size, suitable for framing, 
dressing up that drab line printer or file 
cabinet. Only $3.00 [5G] 
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The 

Colossal 

Computer 

y^ Cartoon 

Book 



The best collection of computer cartoons 
ever! 15 chapters of several hundred car- 
toons about robots, computer dating, 
computers in the office, etc. Great gift item. 
128 pp. softbound $4.95 [6G] 
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GPeafcl¥® go: lag 

P.O. Box 789-M Morristown, NJ 07960 

Please use this order form for fast, dependable 
service. It gives us the information necessary to insure 
prompt delivery. 

To make payment: We gladly accept your personal 

check, bank draft, money order, VISA, Master Charge or 

AmericanExpress. 

Please do not 

send currency. 

Sorry, no C.O.D. 

orders. 
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DER FORIVI 

SUBSCRIPTIONS 



3-year(36 issues) 
2-year(24 issues) 
1-year(12 issues) 

Cat. 
Quantity No. 

12D 



Be sure to include the complete number and expira- 
tion date of your card. Your purchase will be included on 
your regular monthly statement. 



Name. 



Address. 
City 



.State_ 



Apt.#_ 
__Zip. 



Area code. 



Telephone. 



Shipto: (if otherthan yourself) 
Name 



Address, 
City 



-State. 



Apt.*L 
_Zip_ 



□ Check or money order enclosed (U.S. funds only) 

□ VISA □ Master Charge O American Express 

Q ar( j num t3 er 



Expiration Date 



Signature 






U Order Toll Free in continental U.S. 
& 800-631-8112 

W£ (In NJ call 201-540-0445) 



Payment for telephone orders must be made with Visa, 
MasterCharge, or American Express. 



10R 

9Y 

12E 

6H 
6A 

6B 

6C 

6C2 

6F 

12A 

CR101 

6D 

6E 

5G 

6G 



USA 

□ $40 

□ $28 

□ $15 



Canada and 

Foreign Surface Foreign Air 



□ $67 

□ $46 

□ $23 



□ $130 

□ $88 

□ $45 



Title 

Computers in Mathematics: 
A Sourcebook of Ideas 
Computer Coin Games 
Problems for Computer Solution 
The Impact of Computers 
on Society and Ethics : 
A Bibliography 
Be A Computer Literate 

The Best of Creative Computing : 

Volume 1 

The Best of Creative Computing : 

Volume 2 

Basic Computer Games 

More Basic Computer Games 

The Best of Byte 

Katie and the Computer 

Computer Music Record 

Artist and Computer 

Artist and Computer (hardbound) 

Wolverton Prints 

The Colossal Computer 

Cartoon Book 



Price Total 



$15.95 
$3.95 
$9.95 



$17.95 
$3.95 

$8.95 

$8.95 
$7.50 
$7.50 

$11.95 
$6.95 
$6.00 
$4.95 

$10.00 
$3.00 

$4.95 



Prices subject to change 
without notice. 



Shipping and handling 
N J residents add 5% tax 
TOTAL 



$2.00 
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